Open Watcom FORTRAN 77 Language Reference

Language Reference
2.42 EXIT Statement
EXIT
[: block-label]
The EXIT statement is used to transfer control:
1. from within a loop (DO, DO WHILE, WHILE or LOOP) to the statement following the loop,
2. from within a GUESS or ADMIT block to the statement following the ENDGUESS statement, or
3. from within a remote block to the statement following the EXECUTE statement that invoked the
remote block.
The EXIT statement may be used to cause a transfer of control to the first executable statement that follows
the terminal statement of the block which contains it. Examples of such terminal statements are END DO,
END LOOP, END WHILE, UNTIL, etc. If block-label is present then control is transferred out of
the block identified by that block label. The EXIT 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 ) EXIT
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.
74 EXIT Statement