! { dg-do compile } | |
! PR fortran/102817 - ICE in gfc_clear_shape | |
program test | |
type t | |
integer :: a(1,2) = 3 | |
end type t | |
type(t), parameter :: u = t(4) | |
type(t), parameter :: x(1) = t(4) | |
integer, parameter :: p(1,2) = (x(1)%a) | |
integer :: z(1,2) = (x(1)%a) | |
integer :: y(1,2), v(1,2), w(1,2) | |
v = (u %a) | |
w = x(1)%a | |
y = (x(1)%a) | |
print *, v, w, y, z, p | |
end |