https://gcc.gnu.org/bugzilla/show_bug.cgi?id=40196
--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- This works: type tp(dim) integer, KIND :: dim = 3 real :: dist(dim) end type tp type(tp) :: t(5) print *, t%dist(2) print *, t end