f87737f3fd
Extract the SINK/SOURCE parse tree elements into a separate class `OmpDoacross`, share them between DEPEND and DOACROSS clauses. Most of the changes in Semantics are to accommodate the new contents of OmpDependClause, and a mere introduction of OmpDoacrossClause. There are no semantic checks specifically for DOACROSS.
22 lines
648 B
Fortran
22 lines
648 B
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
|
|
|
|
subroutine f00
|
|
integer :: obj
|
|
!WARNING: SOURCE dependence type is deprecated in OpenMP v5.2
|
|
!ERROR: A DEPEND clause on a DEPOBJ construct must not have SINK or SOURCE as dependence type
|
|
!$omp depobj(obj) depend(source)
|
|
end
|
|
|
|
subroutine f03
|
|
integer :: obj, jbo
|
|
!Note: no portability message
|
|
!ERROR: The DESTROY clause must refer to the same object as the DEPOBJ construct
|
|
!$omp depobj(obj) destroy(jbo)
|
|
end
|
|
|
|
subroutine f06
|
|
integer :: obj
|
|
!WARNING: The DESTROY clause without argument on DEPOBJ construct is deprecated in OpenMP v5.2
|
|
!$omp depobj(obj) destroy
|
|
end
|