XL Fortran Enterprise Edition for AIX : User's Guide - IBM

Examples
In the following example, note how variables, literal constants, intrinsics,
arithmetic operators, and input/output operations all handle the changed default
integer size.
@PROCESS INTSIZE(8)
PROGRAM INTSIZETEST
INTEGER I
I = -9223372036854775807 ! I is big enough to hold this constant.
J = ABS(I) ! So is implicit integer J.
IF (I .NE. J) THEN
PRINT *, I, ’.NE.’, J
END IF
END
The following example only works with the default size for integers:
CALL SUB(17)
END
SUBROUTINE SUB(I)
INTEGER(4) I ! But INTSIZE may change "17"
! to INTEGER(2) or INTEGER(8).
...
END
If you change the default value, you must either declare the variable I as
INTEGER instead of INTEGER(4) or give a length to the actual argument, as
follows:
@PROCESS INTSIZE(8)
INTEGER(4) X
PARAMETER(X=17)
CALL SUB(X)
CALL SUB(17_4)
END
! Use a parameter with the right length, or
! use a constant with the right kind.
Related Information
See “-qrealsize Option” on page 222 and Type Parameters and Specifiers in the XL
Fortran Enterprise Edition for AIX Language Reference.
XL Fortran Compiler-Option Reference 181