8.97 GERROR — Получение последнего сообщения об ошибке системы

Описание:

Возвращает сообщение об ошибке системы, соответствующее последней ошибке системы. Это напоминает функциональность strerror(3) в C.

Стандарт:

Расширение GNU

Класс:

Подпрограмма

Синтаксис:

CALL GERROR(RESULT)

Аргументы:

RESULT

Должен быть типа CHARACTER и по умолчанию

Пример:

PROGRAM test_gerror
  CHARACTER(len=100) :: msg
  CALL gerror(msg)
  WRITE(*,*) msg
END PROGRAM

См. также:

IERRNO, PERROR