libgomp/testsuite/libgomp.oacc-fortran/pr68813.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { dg-do run }
!
program foo
  implicit none
  integer, parameter :: n = 100
  integer, dimension(n,n) :: a
  integer :: i, j, sum = 0

  a = 1

  !$acc parallel copyin(a(1:n,1:n)) firstprivate (sum)
  !$acc loop gang reduction(+:sum)
  do i=1, n
     !$acc loop vector reduction(+:sum)
     do j=1, n
        sum = sum + a(i, j)
     enddo
  enddo
  !$acc end parallel

end program foo