! { dg-do compile } | |
! PR fortran/106049 - ICE in gfc_simplify_pack | |
! Contributed by G.Steinmetz | |
program p | |
type t | |
end type | |
logical, parameter :: m(0) = [ logical :: ] | |
type(t), parameter :: a(0) = [ t :: ] | |
type(t), parameter :: b(1) = [ t() ] | |
type(t), parameter :: c(1) = [ t :: ] ! { dg-error "Different shape" } | |
type(t), parameter :: d(0) = pack(a, m) | |
type(t), parameter :: e(1) = pack(b, [.true.]) | |
type(t), parameter :: f(1) = pack(c, [.true.]) | |
end |