Next: IS_IOSTAT_EOR, Previous: IRAND, Up: Intrinsic Procedures [Contents][Index]
IS_IOSTAT_END — Test for end-of-file valueIS_IOSTAT_END tests whether an variable has the value of the I/O
status “end of file”. The function is equivalent to comparing the variable
with the IOSTAT_END parameter of the intrinsic module
ISO_FORTRAN_ENV.
Fortran 2003 and later
Elemental function
RESULT = IS_IOSTAT_END(I)
| I | Shall be of the type INTEGER. |
Returns a LOGICAL of the default kind, which .TRUE. if
I has the value which indicates an end of file condition for
IOSTAT= specifiers, and is .FALSE. otherwise.
PROGRAM iostat IMPLICIT NONE INTEGER :: stat, i OPEN(88, FILE='test.dat') READ(88, *, IOSTAT=stat) i IF(IS_IOSTAT_END(stat)) STOP 'END OF FILE' END PROGRAM