2 ! PR fortran/102817 - ICE in gfc_clear_shape
8 type(t
), parameter :: u
= t(4)
9 type(t
), parameter :: x(1) = t(4)
10 integer, parameter :: p(1,2) = (x(1)%a
)
11 integer :: z(1,2) = (x(1)%a
)
12 integer :: y(1,2), v(1,2), w(1,2)
16 print *, v
, w
, y
, z
, p