[flang-commits] [flang] [flang][OpenMP] don't privatise loop index marked shared (PR #108176)

[Tom Eccles via flang-commits]

================
@@ -2173,7 +2178,7 @@ void OmpAttributeVisitor::CreateImplicitSymbols(
       // TODO 5) dummy arg in orphaned taskgen construct -> firstprivate
       if (prevDSA == Symbol::Flag::OmpShared) {
         // 6) shared in enclosing context -> shared
-        makeSharedSymbol();
+        makeSharedSymbol(/*setFlag=*/false);
----------------
tblah wrote:

With these set I encountered various test failures for variables used in clauses which cannot be combined with `shared`

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