6.1.1 Спецификации типа старого стиля

GNU Fortran допускает спецификации типа старого стиля в объявлениях. Они выглядят следующим образом:

TYPESPEC*size x,y,z

где TYPESPEC — базовый тип (INTEGER, REAL, и т. д.), и где size — количество байт, соответствующее размеру хранилища допустимого типа для этого типа. (Для переменных COMPLEX, size — это общий размер вещественной и мнимой частей.) Тогда оператор объявляет x, y и z типа TYPESPEC с соответствующим типом. Это эквивалентно стандарту соответствия объявления

TYPESPEC(k) x,y,z

где k — параметр типа, подходящий для заданной точности. Поскольку параметры типа зависят от реализации, используйте KIND, SELECTED_INT_KIND и SELECTED_REAL_KIND встроенные функции для получения правильного значения, например, REAL*8 x можно заменить на:

INTEGER, PARAMETER :: dbl = KIND(1.0d0)
REAL(KIND=dbl) :: x