c: Fix up pointer types to may_alias structures [PR114493]
[official-gcc.git] / gcc / testsuite / gfortran.dg / parameter_array_init_7.f90
blob890da35da98ccf3fc31b12cfd077d88320c0b1d6
1 ! { dg-do compile }
2 ! PR68566 ICE on using unusable array in reshape
3 program p
4 integer, parameter :: n = 2
5 integer, parameter :: a(:) = 0 !{ dg-error "automatic or of deferred shape" }
6 integer, parameter :: b(n, n) = reshape([a, 1+a], [n, n])
7 end