flang/test/Semantics/OpenMP/reduction03.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.15.3.6 Reduction Clause
   4
   5 subroutine 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
  18 end subroutine omp_target