9.212 OR — Битовая логическая операция OR

Описание:

Битовая логическая операция OR.

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

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = OR(I, J)

Аргументы:

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

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

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

Пример:

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: IOR