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

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50
   2
   3 subroutine f00
   4   integer :: obj
   5 !ERROR: A DEPEND clause on a DEPOBJ construct must not have SINK, SOURCE or DEPOBJ as dependence type
   6   !$omp depobj(obj) depend(source)
   7 end
   8
   9 subroutine f01
  10   integer :: obj
  11   integer :: x, y
  12 !ERROR: A DEPEND clause on a DEPOBJ construct must only specify one locator
  13   !$omp depobj(obj) depend(in: x, y)
  14 end
  15
  16 subroutine f02
  17   integer :: obj
  18   integer :: x(10)
  19 !WARNING: An iterator-modifier may specify multiple locators, a DEPEND clause on a DEPOBJ construct must only specify one locator
  20   !$omp depobj(obj) depend(iterator(i = 1:10), in: x(i))
  21 end
  22
  23 subroutine f03
  24   integer :: obj, jbo
  25 !ERROR: The DESTROY clause must refer to the same object as the DEPOBJ construct
  26 !WARNING: The object parameter in DESTROY clause on DEPOPJ construct is not allowed in OpenMP v5.0, try -fopenmp-version=52
  27   !$omp depobj(obj) destroy(jbo)
  28 end