[flang-commits] [flang] [flang][OpenACC] Relax COMMON block usage restriction in OpenACC directives (PR #162659)

[Peter Klausler via flang-commits]

================
@@ -189,7 +189,29 @@ class Scope {
   mapType &commonBlocks() { return commonBlocks_; }
   const mapType &commonBlocks() const { return commonBlocks_; }
   Symbol &MakeCommonBlock(SourceName, SourceName location);
-  Symbol *FindCommonBlock(const SourceName &) const;
+  bool AddCommonBlockUse(const SourceName &name, Symbol &cbSymbol);
+  mapType &commonBlockUses() { return commonBlockUses_; }
+
+  // Find COMMON block that is not USE-associated in the current scope
----------------
klausler wrote:

More accurately, this member function finds a COMMON block that is declared in this scope.

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