flang/test/Semantics/OpenMP/reduction12.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2
   3 ! OpenMP 5.2: Section 5.5.5 : A procedure pointer must not appear in a
   4 ! reduction clause.
   5
   6   procedure(foo), pointer :: ptr
   7   integer :: i
   8   ptr => foo
   9 !ERROR: A procedure pointer 'ptr' must not appear in a REDUCTION clause.
  10 !$omp do reduction (+ : ptr)
  11   do i = 1, 10
  12   end do
  13 contains
  14   subroutine foo
  15   end subroutine
  16 end