[flang] [llvm] [flang][OpenMP] Update handling of DEPEND clause (PR #113620)
Kiran Chandramohan via llvm-commits
llvm-commits at lists.llvm.org
Mon Oct 28 07:37:11 PDT 2024
================
@@ -3283,15 +3283,21 @@ void OmpStructureChecker::Enter(const parser::OmpClause::Depend &x) {
parser::ToUpperCaseLetters(getDirectiveName(GetContext().directive)));
}
if (const auto *inOut{std::get_if<parser::OmpDependClause::InOut>(&x.v.u)}) {
- const auto &designators{std::get<std::list<parser::Designator>>(inOut->t)};
- for (const auto &ele : designators) {
- if (const auto *dataRef{std::get_if<parser::DataRef>(&ele.u)}) {
- CheckDependList(*dataRef);
- if (const auto *arr{
- std::get_if<common::Indirection<parser::ArrayElement>>(
- &dataRef->u)}) {
- CheckArraySection(arr->value(), GetLastName(*dataRef),
- llvm::omp::Clause::OMPC_depend);
+ for (const auto &object : std::get<parser::OmpObjectList>(inOut->t).v) {
+ if (const auto *name{std::get_if<parser::Name>(&object.u)}) {
+ context_.Say(GetContext().clauseSource,
+ "Common block name ('%s') cannot appear in a DEPEND "
+ "clause"_err_en_US,
+ name->ToString());
----------------
kiranchandramohan wrote:
Is ToString required?
https://github.com/llvm/llvm-project/pull/113620
More information about the llvm-commits
mailing list