fortranの超絶初心者です。
以下のプログラムをexitを使わないで同様の結果を得るには、
どうすればいいのでしょうか？
ご教授願います。fortran90を使っています。

program
real :: r,a
integer :: io !入力結果の状態を表す変数
!
print *, 'CTRl-D を入力すると終了'
!
do while ( .true. )
　 read(5,*,IOSTAT=io) r
if(io /= 0 )then
　　　　 exit
　　　 endif
　　 a = 4 *3.141592* r ** 2
　　 print *, r, a
　 end do
!
end program