6.1.10 BOZ литеральные константы

Помимо десятичных констант, Fortran также поддерживает двоичные (b), восьмеричные (o) и шестнадцатеричные (z) целочисленные константы. Синтаксис: ‘префикс цитата цифры цитата’, где префикс — это либо b, o или z, цитата — это либо ' или ", а цифры — это 0 или 1 для двоичных, между 0 и 7 для восьмеричных и между 0 и F для шестнадцатеричных. (Пример: b'01011101').

До Fortran 95, BOZ литеральные константы разрешалось использовать только для инициализации целочисленных переменных в операторах DATA. С Fortran 2003 BOZ литеральные константы также разрешены в качестве фактических аргументов для REAL, DBLE, INT и CMPLX встроенных функций. BOZ литеральная константа — это просто строка битов, которая дополняется или усекается по мере необходимости во время преобразования в числовой тип. Стандарт Fortran указывает, что обработка знакового бита зависит от процессора. Gfortran интерпретирует знаковый бит так, как ожидается от пользователя.

В качестве устаревшего расширения, GNU Fortran позволяет задавать шестнадцатеричные BOZ литеральные константы с использованием префикса X. BOZ литеральная константа также может быть задана путем добавления суффикса к строке, например, Z'ABC' и 'ABC'X эквивалентны. Кроме того, как расширение, BOZ литералы разрешены в некоторых контекстах за пределами DATA и встроенных функций, перечисленных в стандарте Fortran. Используйте -fallow-invalid-boz для включения расширения.