[Bug fortran/102817] [12 Regression] ICE in gfc_clear_shape, at fortran/expr.c:422 since r12-4278-g74ccca380cde5e79

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102817

--- Comment #4 from anlauf at gcc dot gnu.org ---
Furthermore the "scalar" variants work:

...
  type(t), parameter :: u    = t(4)
...
  y = (u%a)
...