PRESENT — Determine whether an optional dummy argument is specified#
-
PRESENT(A)#
Determines whether an optional dummy argument is present.
- Parameters
A – May be of any type and may be a pointer, scalar or array value, or a dummy procedure. It shall be the name of an optional dummy argument accessible within the current subroutine or function.
- Returns
Returns either
TRUE
if the optional argumentA
is present, orFALSE
otherwise.
- Standard:
Fortran 90 and later
- Class:
Inquiry function
- Syntax:
RESULT = PRESENT(A)
- Example:
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