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