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