flang/test/Semantics/OpenMP/reduction-subtract.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 5.2
   3 ! Minus operation is deprecated in reduction
   4
   5 subroutine reduction_subtract
   6   integer :: x
   7   !ERROR: The minus reduction operator is deprecated since OpenMP 5.2 and is not supported in the REDUCTION clause.
   8   !$omp do reduction(-:x)
   9   do i=1, 100
  10     x = x - i
  11   end do
  12   !$omp end do
  13 end subroutine