%VAL

Built-in Function: Changes the form of an actual argument. Passes the argument as an immediate value.

Syntax

result = %VAL (a)

a
(Input) An expression, record name, procedure name, array, character array section, or array element.

The argument is passed as follows:

On ia32 processors, as a 32-bit immediate value. If the argument is integer (or logical) and shorter than 32 bits, it is sign-extended to a 32-bit value. For complex data types, %VAL passes two 32-bit arguments.
On Alpha and ia64 processors, as a 64-bit immediate value. If the argument is integer (or logical) and shorter than 64 bits, it is sign-extended to a 64-bit value. For complex data types, %VAL passes two 64-bit arguments.

You must specify %VAL in the actual argument list of a CALL statement or function reference. You cannot use it in any other context.

The following table lists the Compaq Fortran defaults for argument passing, and the allowed uses of %VAL:

Actual Argument Data Type	Default	%VAL
Expressions:
Logical	REF	Yes¹
Integer	REF	Yes¹
REAL(4)	REF	Yes
REAL(8)	REF	Yes²
REAL(16) ³	REF	No
COMPLEX(4)	REF	Yes
COMPLEX(8)	REF	Yes
COMPLEX(16) ³	REF	No
Character	See table note⁴	No
Hollerith	REF	No
Aggregate⁵	REF	No
Derived	REF	No
Array Name:
Numeric	REF	No
Character	See table note⁴	No
Aggregate⁵	REF	No
Derived	REF	No
Procedure Name:
Numeric	REF	No
Character	See table note⁴	No
¹ If a logical or integer value occupies less than 64 (Alpha and ia64 processors) or 32 (ia32 processors) bits of storage, it is converted to the correct size by sign extension. Use the ZEXT intrinsic function if zero extension is desired. ² Alpha only ³ VMS, U*X ⁴ On Windows, Tru64 UNIX, and Linux systems, a character argument is passed by address and hidden length. ⁵ In Compaq Fortran record structures

The %VAL, %REF, and %DESCR functions override related cDEC$ ATTRIBUTE settings.

See Also: CALL, %REF, %DESCR

Example

  CALL SUB(2, %VAL(2))

Constant 2 is passed by reference. The second constant 2 is passed by immediate value.