5.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