flang/test/Semantics/OpenMP/omp-reduction10.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 program omp_reduction
   5
   6   integer :: i
   7   integer :: k = 10
   8
   9   !ERROR: Invalid reduction identifier in REDUCTION clause.
  10   !$omp parallel do reduction(foo:k)
  11   do i = 1, 10
  12     k = foo(k)
  13   end do
  14   !$omp end parallel do
  15 end program omp_reduction