9.219 PRESENT — Определить, указан ли необязательный фиктивный аргумент

Описание:

Определяет, присутствует ли необязательный фиктивный аргумент.

Стандарт:

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

Класс:

Функция запроса

Синтаксис:

RESULT = PRESENT(A)

Аргументы:

A	Может быть любого типа и может быть указателем, скалярным или массивом, или фиктивной процедурой. Должен быть именем необязательного фиктивного аргумента, доступного в текущей подпрограмме или функции.

Значение возврата:

Возвращает либо TRUE, если необязательный аргумент A присутствует, либо FALSE в противном случае.

Пример:

PROGRAM test_present
  WRITE(*,*) f(), f(42)      ! "F T"
CONTAINS
  LOGICAL FUNCTION f(x)
    INTEGER, INTENT(IN), OPTIONAL :: x
    f = PRESENT(x)
  END FUNCTION
END PROGRAM