gcc/testsuite/gfortran.dg/goacc/multi-clause.f90


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

! Test if variable appearing in multiple clauses are errors.

! { dg-do compile }

program combined
  implicit none
  integer a(100), i, j

  !$acc parallel loop reduction (+:j) copy (j) copyout(j) ! { dg-error "Symbol 'j' present on multiple clauses" }
  do i = 1, 100
  end do
  !$acc end parallel loop
end program combined