IS_IOSTAT_END — Test for end-of-file value#

IS_IOSTAT_END(I)#

IS_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.

Parameters: I – Shall be of the type INTEGER.
Returns: 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.

Standard:

Fortran 2003 and later

Class:

Elemental function

Syntax:

RESULT = IS_IOSTAT_END(I)

Example:

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