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

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
   2
   3 subroutine f04
   4   integer :: obj
   5 !ERROR: An UPDATE clause on a DEPOBJ construct must not have SINK, SOURCE or DEPOBJ as dependence type
   6   !$omp depobj(obj) update(source)
   7 end
   8
   9 subroutine f05
  10   integer :: obj
  11 !ERROR: An UPDATE clause on a DEPOBJ construct must not have SINK, SOURCE or DEPOBJ as dependence type
  12   !$omp depobj(obj) update(depobj)
  13 end