HP Fortran Programmer's Reference

! a named integer constant
coord(0.0,infinity) ! a structure constructor in which
! "infinity" is a named constant
(/ SQRT(x), x, x*x /) ! an array constructor in which x is a
! named real constant
x*x + 2*x*y + y*y ! a constant numeric expression where x
! and y are named constants
SUM(iterations,DIM=1) ! reference to a transformational
! intrinsic where iterations is an
! array-valued named constant
SHAPE(matrix) ! a reference to an inquiry intrinsic in
! which "matrix" is an array with
! constant bounds
Initialization expressions
Expressions and assignment
Expressions
An initialization expression is a more specialized form of constant expression that can
appear as the initial value in a declaration statement. Initialization expressions have these
additional restrictions:
Exponentiation is only allowed if the second operand is an integer.
Any subexpression within the expression must itself be an initialization expression.
All arguments to intrinsic function references must be initialization expressions.
Only the following transformational intrinsic functions may be referenced:
REPEAT
RESHAPE
SELECTED_INT_KIND
SELECTED_REAL_KIND
TRANSFER
TRIM
Any inquiry intrinsic that is referenced may interrogate a property of an entity (such as
bounds or kind type parameter) only if the property is a constant.
Any elemental intrinsic functions must have integer or character arguments and an
integerorcharacterresult.
Initialization expressions are required for the following:
Chapter 5 91