gcc/testsuite/gfortran.dg/goacc/pr72743.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
! { dg-additional-options "-O2" }

program p
   integer, parameter :: n = 8
   integer :: i, z(n)
   z = [(i, i=1,n)]
   print *, z
end
subroutine s
   integer, parameter :: n = 8
   integer :: i, z(n)
   z = [(i, i=1,n)]
   print *, z
end