9.157 IS_IOSTAT_EOR — Проверка значения конца записи

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = IS_IOSTAT_EOR(I)

Аргументы:

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

Значение результата:

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

Пример:

PROGRAM iostat
  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