! { dg-do compile } | |
! PR fortran/107054 - ICE in gfc_simplify_unpack | |
! Contributed by G.Steinmetz | |
program p | |
type t | |
integer :: n = 0 | |
end type | |
type(t), parameter :: a(4) = t(2) | |
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" } | |
type(t), parameter :: d(4) = unpack(c,[.false.,.true.,.false.,.true.],a) | |
end |