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
. RESULT = IS_IOSTAT_END(I)
I | Shall be of the type INTEGER . |
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
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-5.4.0/gfortran/IS_005fIOSTAT_005fEND.html