14 lines
380 B
Fortran
14 lines
380 B
Fortran
|
! 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
|