[Bug fortran/68566] ICE on using unusable array in reshape (double free or corruption)

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Same issue with variants ...

$ cat z2.f90
program p
   integer, parameter :: n = 2
   integer, parameter :: a(2.) = 1
   integer, parameter :: b(n, n) = reshape([a, -a], [n, n])
end

$ cat z3.f90
program p
   integer, parameter :: n = 2
   integer, parameter :: a('2') = 1
   integer, parameter :: b(n, n) = reshape([a, -a], [n, n])
end

$ cat z4.f90
program p
   integer, parameter :: n = 2
   integer, parameter :: a(.true.) = 1
   integer, parameter :: b(n, n) = reshape([a, -a], [n, n])
end

$ cat z5.f90
program p
   integer, parameter :: n = 2
   integer, parameter :: a((0.,1.)) = 1
   integer, parameter :: b(n, n) = reshape([a, -a], [n, n])
end


Same issue with other intrinsic types, and without parameter attribute for b.