blob: 4b0f86a75a6c35b217b8d12f8e7a2626af5d93ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|