This intrinsic routine is provided for backwards compatibility with GNU Fortran 77. For integer arguments, programmers should consider the use of the IOR intrinsic defined by the Fortran standard.
RESULT = OR(I, J)
|I||The type shall be either a scalar
|J||The type shall be the same as the type of I or a boz-literal-constant. I and J shall not both be boz-literal-constants. If either I and J is a boz-literal-constant, then the other argument must be a scalar
The return type is either a scalar
INTEGER or a scalar
LOGICAL. If the kind type parameters differ, then the smaller kind type is implicitly converted to larger kind, and the return has the larger kind. A boz-literal-constant is converted to an
INTEGER with the kind type parameter of the other argument as-if a call to INT occurred.
PROGRAM test_or LOGICAL :: T = .TRUE., F = .FALSE. INTEGER :: a, b DATA a / Z'F' /, b / Z'3' / WRITE (*,*) OR(T, T), OR(T, F), OR(F, T), OR(F, F) WRITE (*,*) OR(a, b) END PROGRAM
Fortran 95 elemental function: IOR
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.