“FORTRAN SELECT TYPE” Ответ

FORTRAN SELECT TYPE

select type(a)
type is(thing)

class is(stuff)

end select