| ! RUN: %S/test_errors.sh %s %t %f18 -fopenacc | |
| subroutine compute() | |
| integer :: a(3), c, i | |
| a = 1 | |
| !ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive | |
| !$acc parallel firstprivate(c) private(c) | |
| do i = 1, 3 | |
| a(i) = c | |
| end do | |
| !$acc end parallel | |
| end subroutine compute | |
| program mm | |
| call compute() | |
| end |