blob: d383aebc3cfdd8f206d0c9618aef5260f13d36b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! 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
!$acc serial loop reduction (+:j) copy (j) copyout(j) ! { dg-error "Symbol 'j' present on multiple clauses" }
do i = 1, 100
end do
!$acc end serial loop
end program combined
|
