https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92753
--- Comment #4 from anlauf at gcc dot gnu.org --- Slightly reduced testcase: implicit none type t character :: c end type t type(t), parameter :: x = t('a') integer, parameter :: l = x%c%len ! ICE ! integer, parameter :: l = x%c%kind ! no ICE print *, l end