[Bug fortran/71203] ICE in add_init_expr_to_sym, at fortran/decl.c:1512 and :1564

[dominiq at lps dot ens.fr]

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

--- Comment #16 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
program p
   integer :: i
   integer, parameter :: x(2) = 0
!   integer, parameter :: y(*) = [(x(i:i), i=1,2)]
   print *, shape([(x(i:i), i=1,2)])
end

prints 2 at run time.