Specifies that you can mix integer and logical data entities in expressions and statements.
.-nointlog-. >>- -q--+-intlog---+-------------------------------------------><
@PROCESS:
@PROCESS INTLOG | NOINTLOG
-qnointlog
When -qintlog is specified, logical operators that you specify with integer operands act upon those integers in a bit-wise manner, and integer operators treat the contents of logical operands as integers.
You can also use the intrinsic functions IAND, IOR, IEOR, and NOT to perform bitwise logical operations.
The MOVE_ALLOC intrinsic function cannot take one integer and one logical argument.
INTEGER I, MASK, LOW_ORDER_BYTE, TWOS_COMPLEMENT
I = 32767
MASK = 255
! Find the low-order byte of an integer.
LOW_ORDER_BYTE = I .AND. MASK
! Find the twos complement of an integer.
TWOS_COMPLEMENT = (.NOT. I) + 1
END