! { dg-do compile } | |
! PR fortran/106857 - ICE in gfc_simplify_pack | |
! Contributed by G.Steinmetz | |
program p | |
type t | |
integer :: n | |
end type | |
type(t), parameter :: a(2,2) = t(1) | |
type(t), parameter :: b(4) = reshape(a, [2]) ! { dg-error "Different shape" } | |
type(t), parameter :: c(2) = pack(b, [.false.,.true.,.false.,.true.]) ! { dg-error "Different shape" } | |
end |