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