blob: 31183b06990f20f135d65416684404357e028ab9 [file] [log] [blame]
! { dg-do run }
! PR 71203 - this used to ICE
program p
integer :: i
integer, parameter :: x(2) = 0
integer, parameter :: y(*) = [(x(i:i), i=1,2)]
if (size(y,1) /= 2) stop 1
if (any(y /= 0)) stop 2
end