Rebase and addressed review comment by using Ultimate symbol.

raghavendhra · raghavendhra · commit d7922defcf90 · 2025-04-24T17:05:23.000-05:00
diff --git a/flang/lib/Semantics/check-omp-structure.cpp b/flang/lib/Semantics/check-omp-structure.cpp
@@ -1727,7 +1727,7 @@ void OmpStructureChecker::Enter(const parser::OpenMPDeclarativeAllocate &x) {
           "argument"_err_en_US,
           source.ToString());
     }
-    if (symbol->has<AssocEntityDetails>()) {
+    if (symbol->GetUltimate().has<AssocEntityDetails>()) {
       context_.Say(source,
           "List item '%s' in ALLOCATE directive must not be an associate "
           "name"_err_en_US,

Original file line number	Diff line number	Diff line change
`@@ -1727,7 +1727,7 @@ void OmpStructureChecker::Enter(const parser::OpenMPDeclarativeAllocate &x) {`
`1727`	`1727`	`"argument"_err_en_US,`
`1728`	`1728`	`source.ToString());`
`1729`	`1729`	`}`
`1730`		`- if (symbol->has<AssocEntityDetails>()) {`
	`1730`	`+ if (symbol->GetUltimate().has<AssocEntityDetails>()) {`
`1731`	`1731`	`context_.Say(source,`
`1732`	`1732`	`"List item '%s' in ALLOCATE directive must not be an associate "`
`1733`	`1733`	`"name"_err_en_US,`