Open Watcom FORTRAN 77 Language Reference

Language Reference
2.6 AT END Statement
AT END DO
[: block-label]
or
AT END, stmt
where:
stmt
is an executable statement other than an AT END statement.
The AT END control statement is an extension of the END= option of the READ statement for sequential
files. It allows a statement or a block of code following the READ statement to be executed when an
end-of-file condition is encountered during the read. The AT END statement or block is by-passed if no
end-of-file occurs. It is not valid to use this control statement with direct-access or internal files. It is not
valid to use this statement when END= is also specified in the READ statement. The AT END statement or
block must immediately follow the READ statement to which it applies.
Example:
READ( UNIT=1, FMT=’(I5,F10.4)’ ) I, X
AT END DO
PRINT *, ’END-OF-FILE ENCOUNTERED ON UNIT 1’
EOFSW = .TRUE.
END AT END
The second form of the AT END statement is illustrated below.
Example:
READ( UNIT=1, FMT=’(F10.4)’ ) X
AT END, EOFSW = .TRUE.
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
18 AT END Statement