2 ! PR fortran/106857 - ICE in gfc_simplify_pack
3 ! Contributed by G.Steinmetz
9 type(t
), parameter :: a(2,2) = t(1)
10 type(t
), parameter :: b(4) = reshape(a
, [2]) ! { dg-error "Different shape" }
11 type(t
), parameter :: c(2) = pack(b
, [.false
.,.true
.,.false
.,.true
.]) ! { dg-error "Different shape" }