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