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

Reply via email to