! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp

! OpenMP 5.2: Section 5.5.5 : A procedure pointer must not appear in a
! reduction clause.

  procedure(foo), pointer :: ptr
  integer :: i
  ptr => foo
!ERROR: Procedure pointer 'ptr' may not appear in a REDUCTION clause
!$omp do reduction (+ : ptr)
  do i = 1, 10
  end do
contains
  subroutine foo
  end subroutine
end
