xref: /llvm-project/flang/test/Semantics/OpenMP/depobj-construct-v52.f90 (revision f87737f3fdb6b2a7fa0d7b9c245eab0c39e6fb50)
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
2
3subroutine f00
4  integer :: obj
5!WARNING: SOURCE dependence type is deprecated in OpenMP v5.2
6!ERROR: A DEPEND clause on a DEPOBJ construct must not have SINK or SOURCE as dependence type
7  !$omp depobj(obj) depend(source)
8end
9
10subroutine f03
11  integer :: obj, jbo
12!Note: no portability message
13!ERROR: The DESTROY clause must refer to the same object as the DEPOBJ construct
14  !$omp depobj(obj) destroy(jbo)
15end
16
17subroutine f06
18  integer :: obj
19!WARNING: The DESTROY clause without argument on DEPOBJ construct is deprecated in OpenMP v5.2
20  !$omp depobj(obj) destroy
21end
22