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