Lahey/Fujitsu Fortran

INTRINSIC Statement

Description

The INTRINSIC statement permits a reference to a specific intrinsic function as an actual argument.

Syntax

INTRINSIC [::] intrinsic-procedure-names
Where:

intrinsic-procedure-names is a comma-separated list of intrinsic procedures.

Remarks

The appearance of a generic intrinsic function name in an INTRINSIC statement does not cause that name to lose its generic property.

If the specific name of an intrinsic function is used as an actual argument, the name must either appear in an INTRINSIC statement or be given the intrinsic attribute in a type declaration statement in the scoping unit.

Only one appearance of a name in all of the INTRINSIC statements in a scoping unit is permitted.

A name must not appear in both an EXTERNAL and an INTRINSIC statement in the same scoping unit.

Example

program intrinsic real :: a=10. real,intrinsic :: log,log10 ! may be actual argument write(*,*) zee(a,log),zee(a,log10) ! writes 2.302585 1.0 end program function zee(a,func) real :: zee,a,func zee=func(a) end function