| ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp | |
| ! OpenMP Version 4.5 | |
| program p | |
| integer :: y | |
| !ERROR: Variable 'y' may not appear on both MAP and FIRSTPRIVATE clauses on a TARGET construct | |
| !$omp target map(y) firstprivate(y) | |
| y = y + 1 | |
| !$omp end target | |
| !ERROR: Variable 'y' may not appear on both MAP and FIRSTPRIVATE clauses on a TARGET SIMD construct | |
| !$omp target simd map(y) firstprivate(y) | |
| do i=1,1 | |
| y = y + 1 | |
| end do | |
| !$omp end target simd | |
| end program p |