xref: /llvm-project/flang/test/Semantics/OpenMP/reduction-subtract.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
2! OpenMP Version 5.2
3! Minus operation is deprecated in reduction
4
5subroutine 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
13end subroutine
14