1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 2! OpenMP Version 4.5 3! 2.15.3.6 Reduction Clause 4 5subroutine omp_target(p) 6 integer, pointer, intent(in) :: p 7 8 integer :: i 9 integer :: k = 10 10 11 !ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a REDUCTION clause 12 !$omp parallel do reduction(+:p) 13 do i = 1, 10 14 k= k + 1 15 end do 16 !$omp end parallel do 17 18end subroutine omp_target 19