6.163 OR — Bitwise logical OR

Description:

Bitwise logical OR.

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.

Standard:

GNU extension

Class:

Function

Syntax:

RESULT = OR(X, Y)

Arguments:

X	The type shall be either INTEGER(*) or LOGICAL.
Y	The type shall be either INTEGER(*) or LOGICAL.

Return value:

The return type is either INTEGER(*) or LOGICAL after cross-promotion of the arguments.

Example:

          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
     

See also:

F95 elemental function: IOR