[flang-commits] [flang] [acc][flang] lowering of acc declare on COMMON variables (PR #163676)

[Susan Tan ス-ザン タン via flang-commits]

================
@@ -4300,6 +4365,69 @@ genGlobalCtorsWithModifier(Fortran::lower::AbstractConverter &converter,
                                   dataClause);
 }
 
+static fir::GlobalOp
+lookupGlobalBySymbolOrEquivalence(Fortran::lower::AbstractConverter &converter,
+                                  fir::FirOpBuilder &builder,
+                                  const Fortran::semantics::Symbol &sym) {
+  const Fortran::semantics::Symbol *commonBlock =
+      Fortran::semantics::FindCommonBlockContaining(sym);
+  std::string globalName = commonBlock ? converter.mangleName(*commonBlock)
+                                       : converter.mangleName(sym);
+  if (fir::GlobalOp g = builder.getNamedGlobal(globalName)) {
+    return g;
+  }
+  // Not found: if not a COMMON member, try equivalence members
+  if (!commonBlock) {
+    if (auto *eqSet = Fortran::semantics::FindEquivalenceSet(sym)) {
----------------
SusanTan wrote:

this is a fairly long one... Fortran::semantics::EquivalenceSet lol

https://github.com/llvm/llvm-project/pull/163676