| ! 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 |