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

[Eugene Epshteyn via flang-commits]

================
@@ -3627,6 +3627,28 @@ void ModuleVisitor::Post(const parser::UseStmt &x) {
       }
     }
   }
+  // Go through the list of COMMON block symbols in the module scope and add
+  // their USE association to the current scope's USE-associated COMMON blocks.
+  for (const auto &[name, symbol] : useModuleScope_->commonBlocks()) {
+    if (Symbol *localCB{currScope().FindCommonBlockInSurroundingScopes(name)};
----------------
eugeneepshteyn wrote:

Done

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