flang/test/Semantics/OpenMP/depobj-construct-v52.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
   2
   3 subroutine 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)
   8 end
   9
  10 subroutine 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)
  15 end
  16
  17 subroutine 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
  21 end