An initialization expression is a constant expression, that is subject to all the same rules. In addition, the following rules apply to items that form primaries for initialization expressions:
You can also specify the generic intrinsic functions and related specific functions found in the Intrinsic Functions for Initialization Expressions table. Unless otherwise noted, all table entries are provided as IBM extensions, though the intrinsic functions themselves are not extensions.
ABS (ABS, DABS, and QABS specific functions only) | IMAG | NULL 1 |
AIMAG | INDEX | QCMPLX |
CMPLX | INT | QEXT |
CONJG | MAX | REAL |
DBLE | MIN | SCAN |
DCMPLX | MOD | SIGN |
DIM (DIM, DDIM, and QDIM specific functions only) | NEW_LINE 2 | VERIFY |
DPROD | NINT |
If an initialization expression includes a reference to an inquiry function for a type parameter or an array bound of an object specified in the same specification part, the type parameter or array bound must be specified in a prior specification of the specification part. The prior specification can be to the left of the inquiry function in the same statement.
3.4**3 KIND(57438) (/'desk','lamp'/) 'ab'//'cd'//'ef'