Fortran的while循环
fortran77没有显式的while循环,但可以通过if+goto来创建
program loop
c***********
c while loop
c***********
real x
x = 10.0
10 if(x.gt.1) then
x = x/2
write(*,*) 'hello'
goto 10
end if
end