mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
10 lines
218 B
Fortran
10 lines
218 B
Fortran
! { 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
|