blob: d4034743a14dc7a0f71682bdb3be5b93624cab04 [file] [log] [blame]
! 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