2 ! PR fortran/106049 - ICE in gfc_simplify_pack
3 ! Contributed by G.Steinmetz
8 logical, parameter :: m(0) = [ logical :: ]
9 type(t
), parameter :: a(0) = [ t
:: ]
10 type(t
), parameter :: b(1) = [ t() ]
11 type(t
), parameter :: c(1) = [ t
:: ] ! { dg-error "Different shape" }
12 type(t
), parameter :: d(0) = pack(a
, m
)
13 type(t
), parameter :: e(1) = pack(b
, [.true
.])
14 type(t
), parameter :: f(1) = pack(c
, [.true
.])