| ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp | |
| ! OpenMP Version 5.2 | |
| ! Minus operation is deprecated in reduction | |
| subroutine reduction_subtract | |
| integer :: x | |
| !ERROR: The minus reduction operator is deprecated since OpenMP 5.2 and is not supported in the REDUCTION clause. | |
| !$omp do reduction(-:x) | |
| do i=1, 100 | |
| x = x - i | |
| end do | |
| !$omp end do | |
| end subroutine |