This intrinsic routine is provided for backwards compatibility with GNU Fortran 77. For integer arguments, programmers should consider the use of the IEOR intrinsic and for logical arguments the .NEQV.
operator, which are both defined by the Fortran standard.
RESULT = XOR(I, J)
I | The type shall be either a scalar INTEGER type or a scalar LOGICAL type. |
J | The type shall be the same as the type of I. |
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. 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
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-6.3.0/gfortran/XOR.html