5.1.31 Битовые логические операторы

С помощью -fdec GNU Fortran ослабляет ограничения типов на логические операторы, чтобы разрешить целочисленные операнды и выполнить соответствующую битовую операцию вместо этого. Этот флаг предназначен только для совместимости и следует избегать его использования в новом коде. Рассмотрите:

INTEGER :: i, j
i = z'33'
j = z'cc'
print *, i .AND. j

В этом примере, скомпилированном с -fdec, GNU Fortran заменит операцию .AND. вызовом встроенной функции IAND, что даст побитовое И i и j.

Обратите внимание, что это преобразование произойдёт, если хотя бы один операнд имеет целочисленный тип. В результате, логический операнд будет преобразован в целое число, когда другой операнд является целым числом в логической операции. В этом случае .TRUE. преобразуется в 1 и .FALSE. в 0.

Вот сопоставление логического оператора с битовой встроенной функцией, используемой с -fdec: