diff --git a/flang/lib/Lower/OpenMP/ClauseProcessor.cpp b/flang/lib/Lower/OpenMP/ClauseProcessor.cpp index dd0068deb9426..3cf9734302a2d 100644 --- a/flang/lib/Lower/OpenMP/ClauseProcessor.cpp +++ b/flang/lib/Lower/OpenMP/ClauseProcessor.cpp @@ -139,9 +139,10 @@ genDependKindAttr(lower::AbstractConverter &converter, break; case omp::clause::DependenceType::Mutexinoutset: case omp::clause::DependenceType::Inoutset: - TODO(currentLocation, "INOUTSET and MUTEXINOUTSET are not supported yet"); - break; case omp::clause::DependenceType::Depobj: + TODO(currentLocation, + "INOUTSET, MUTEXINOUTSET and DEPOBJ dependence-types"); + break; case omp::clause::DependenceType::Sink: case omp::clause::DependenceType::Source: llvm_unreachable("unhandled parser task dependence type"); diff --git a/flang/test/Lower/OpenMP/Todo/depend-clause-depobj.f90 b/flang/test/Lower/OpenMP/Todo/depend-clause-depobj.f90 new file mode 100644 index 0000000000000..3bc730f849192 --- /dev/null +++ b/flang/test/Lower/OpenMP/Todo/depend-clause-depobj.f90 @@ -0,0 +1,10 @@ +!RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s +!RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s + +!CHECK: not yet implemented: INOUTSET, MUTEXINOUTSET and DEPOBJ dependence-types + +subroutine f00(x) + integer :: x + !$omp task depend(depobj: x) + !$omp end task +end diff --git a/flang/test/Lower/OpenMP/Todo/depend-clause-inoutset.f90 b/flang/test/Lower/OpenMP/Todo/depend-clause-inoutset.f90 index 017df00630833..160893fccdc5f 100644 --- a/flang/test/Lower/OpenMP/Todo/depend-clause-inoutset.f90 +++ b/flang/test/Lower/OpenMP/Todo/depend-clause-inoutset.f90 @@ -1,7 +1,7 @@ !RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s !RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s -!CHECK: not yet implemented: INOUTSET and MUTEXINOUTSET are not supported yet +!CHECK: not yet implemented: INOUTSET, MUTEXINOUTSET and DEPOBJ dependence-types subroutine f00(x) integer :: x !$omp task depend(inoutset: x) diff --git a/flang/test/Lower/OpenMP/Todo/depend-clause-mutexinoutset.f90 b/flang/test/Lower/OpenMP/Todo/depend-clause-mutexinoutset.f90 index 2f6ff77b20a88..17cc3894c548f 100644 --- a/flang/test/Lower/OpenMP/Todo/depend-clause-mutexinoutset.f90 +++ b/flang/test/Lower/OpenMP/Todo/depend-clause-mutexinoutset.f90 @@ -1,7 +1,7 @@ !RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s !RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s -!CHECK: not yet implemented: INOUTSET and MUTEXINOUTSET are not supported yet +!CHECK: not yet implemented: INOUTSET, MUTEXINOUTSET and DEPOBJ dependence-types subroutine f00(x) integer :: x !$omp task depend(mutexinoutset: x)