1! { dg-options "-fno-openmp -fopenmp-simd" } 2! 3pure subroutine bar(a) 4 integer, intent(in) :: a(:) 5 !$omp target enter data map(to:a) ! Ignored with -fopenmp-simd otherwise invalid in PURE 6end 7 8pure subroutine foo(a,b) 9 integer, intent(out) :: a(5) 10 integer, intent(in) :: b(5) 11 !$omp target teams distribute simd ! { dg-error "may not appear in PURE procedures" } 12 do i=1, 5 13 a(i) = b(i) 14 end do 15 !$omp end target teams distribute 16end subroutine 17