| ! { dg-options "-fno-openmp -fopenmp-simd" } | |
| ! | |
| pure subroutine bar(a) | |
| integer, intent(in) :: a(:) | |
| !$omp target enter data map(to:a) ! Ignored with -fopenmp-simd otherwise invalid in PURE | |
| end | |
| pure subroutine foo(a,b) | |
| integer, intent(out) :: a(5) | |
| integer, intent(in) :: b(5) | |
| !$omp target teams distribute simd ! { dg-error "may not appear in PURE procedures" } | |
| do i=1, 5 | |
| a(i) = b(i) | |
| end do | |
| !$omp end target teams distribute | |
| end subroutine |