19 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.3.6 Reduction Clause4 5subroutine omp_target(p)6 integer, pointer, intent(in) :: p7 8 integer :: i9 integer :: k = 1010 11 !ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a REDUCTION clause12 !$omp parallel do reduction(+:p)13 do i = 1, 1014 k= k + 115 end do16 !$omp end parallel do17 18end subroutine omp_target19