代码大全

Fortran goto While
C loop initialization
I=0
C while ( I0.5) do
1000 IF (.NOT. ( I .LT. MAXI .AND.X .GT. 0.5 ) ) GOTO 1010
C DO SOMETHING
C ...
GOTO 1000
1010 CONTINUE
C end while
case
for While

17.6.4

goto DavidGriex