is_iostat_eor(3f) - [FORTRAN:INTRINSIC] Test for end-of-record value
result = is_iostat_eor(i)
is_iostat_eor tests whether an variable has the value of the I/O status "end of record". The function is equivalent to comparing the variable with the iostat_eor parameter of the intrinsic module [[iso_fortran_env]].
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.
Sample program:
program demo_is_iostat_eor implicit none integer :: stat, i(50) open(88, file=test.dat, form=unformatted) read(88, iostat=stat) i if(is_iostat_eor(stat)) stop end of record end program demo_is_iostat_eor
Fortran 2003 and later
Elemental function
is_iostat_eor (3) | March 11, 2021 |