9.284 XOR — Побитовое логическое исключающее ИЛИ

Описание:

Побитовое логическое исключающее ИЛИ.

Этот встроенный подпрограмму предоставлен для обратной совместимости с GNU Fortran 77. Для целочисленных аргументов программисты должны рассмотреть возможность использования встроенной функции IEOR, а для логических аргументов — оператор .NEQV., оба из которых определены стандартом Fortran.

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = XOR(I, J)

Аргументы:

I	Тип должен быть либо скалярным типом INTEGER , либо скалярным типом LOGICAL , либо константой-литералом без знака.
J	Тип должен быть таким же, как тип I , или константой-литералом без знака. I и J не должны быть одновременно константами-литералами без знака. Если любой из I и J является константой-литералом без знака, то другой аргумент должен быть скалярным INTEGER.

Значение возврата:

Тип возвращаемого значения — либо скалярный тип INTEGER , либо скалярный тип LOGICAL. Если параметры типа kind различаются, то тип меньшего kind неявно преобразуется в тип большего kind, и возвращаемое значение имеет больший kind. Константа-литерал без знака преобразуется в INTEGER с параметром типа kind другого аргумента так, как будто был выполнен вызов INT.

Пример:

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

См. также:

Элементарная функция Fortran 95: IEOR