8.156 IS_IOSTAT_END — Проверка на значение конца файла

Описание:

IS_IOSTAT_END проверяет, имеет ли переменная значение статуса ввода-вывода «конец файла». Функция эквивалентна сравнению переменной с параметром IOSTAT_END встроенного модуля ISO_FORTRAN_ENV.

Стандарт:

Fortran 2003 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = IS_IOSTAT_END(I)

Аргументы:

`I`	Должна быть типа `INTEGER`.

Возвращаемое значение:

Возвращает значение типа LOGICAL стандартного вида, которое .TRUE. в случае, если I имеет значение, указывающее на условие конца файла для IOSTAT= спецификаторов, и .FALSE. в противном случае.

Пример:

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-13.3.0/gfortran/IS_005fIOSTAT_005fEND.html