[Bug fortran/102817] [12 Regression] ICE in gfc_clear_shape, at fortran/expr.c:422

[gscfq--- via Gcc-bugs]

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

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

This variant still works :


$ cat z2.f90
program p
   type t
      integer :: a(1,2) = 3
   end type
   type(t), parameter :: x(1) = t(4)
   integer :: y(1,2)
   y = x(1)%a
   print *, y
end


$ gfortran-12-20211017 z2.f90 && ./a.out
           4           4
$