Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.16 CYCLE Statement
CYCLE
[: block-label]
The CYCLE statement may be used to cause a transfer of control from within a loop to the terminal
statement of a corresponding DO, DO WHILE, WHILE or LOOP statement. If block-label is present
then control is transferred to the terminal statement of the block identified by that block label. The CYCLE
statement is an extension to the FORTRAN 77 language.
Example:
LOOP
WRITE( UNIT=*, FMT=’(A)’ ) ’Enter a number’
READ( UNIT=*, FMT=’(F10.4)’, IOSTAT=IOS ) X
IF( IOS .NE. 0 ) CYCLE
IF( X .LT. 0 ) EXIT
PRINT *, X, SQRT( X )
END LOOP
END
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
CYCLE Statement 37