flang/test/Semantics/omp-reduction01.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp
   2 ! REQUIRES: shell
   3 ! OpenMP Version 4.5
   4 ! 2.15.3.6 Reduction Clause
   5 program omp_reduction
   6   integer :: i
   7   integer :: k = 10
   8
   9   !ERROR: Invalid reduction operator in REDUCTION clause.
  10   !$omp parallel do reduction(**:k)
  11   do i = 1, 10
  12     k = k ** 1
  13   end do
  14   !$omp end parallel do
  15 end program omp_reduction