Open Watcom FORTRAN 77 Language Reference

Language Reference
2.68 QUIT Statement
QUIT
[: block-label]
The QUIT 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 ADMIT,
CASE, 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 QUIT 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 ) QUIT
IF( X .LT. 0 ) QUIT
PRINT *, X, SQRT( X )
END LOOP
END
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
122 QUIT Statement