46 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=502 3subroutine f004 integer :: obj5!ERROR: A DEPEND clause on a DEPOBJ construct must not have SINK, SOURCE or DEPOBJ as dependence type6 !$omp depobj(obj) depend(source)7end8 9subroutine f0110 integer :: obj11 integer :: x, y12!ERROR: A DEPEND clause on a DEPOBJ construct must only specify one locator13 !$omp depobj(obj) depend(in: x, y)14end15 16subroutine f0217 integer :: obj18 integer :: x(10)19!WARNING: An iterator-modifier may specify multiple locators, a DEPEND clause on a DEPOBJ construct must only specify one locator20 !$omp depobj(obj) depend(iterator(i = 1:10), in: x(i))21end22 23subroutine f0324 integer :: obj, jbo25!ERROR: The DESTROY clause must refer to the same object as the DEPOBJ construct26!WARNING: The object parameter in DESTROY clause on DEPOPJ construct is not allowed in OpenMP v5.0, try -fopenmp-version=5227 !$omp depobj(obj) destroy(jbo)28end29 30subroutine f0431 integer :: obj1, obj232!ERROR: The DEPOBJ directive requires a single argument33 !$omp depobj(ob1, obj2) destroy34end35 36subroutine f0537!ERROR: The DEPOBJ directive requires a single argument38 !$omp depobj update(in)39end40 41subroutine f0642 integer :: obj43!ERROR: The DEPOBJ construct requires a single clause44 !$omp depobj(obj) update(in) destroy45end46