1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50 2 3subroutine 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) 7end 8 9subroutine 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) 14end 15 16subroutine 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)) 21end 22 23subroutine 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) 28end 29