6.220 XOR — Bitwise logical exclusive OR

Description:

Bitwise logical exclusive or.

This intrinsic routine is provided for backwards compatibility with GNU Fortran 77. For integer arguments, programmers should consider the use of the IEOR intrinsic defined by the Fortran standard.

Standard:

GNU extension

Class:

Function

Syntax:

RESULT = XOR(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_xor
            LOGICAL :: T = .TRUE., F = .FALSE.
            INTEGER :: a, b
            DATA a / Z'F' /, b / Z'3' /
          
            WRITE (*,*) XOR(T, T), XOR(T, F), XOR(F, T), XOR(F, F)
            WRITE (*,*) XOR(a, b)
          END PROGRAM
     

See also:

F95 elemental function: IEOR