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