[flang-commits] [flang] [Flang][OpenMP] Fix DEFAULT(NONE) check for Cray pointers in nested OpenMP directives (PR #190764)

[Eugene Epshteyn via flang-commits]

================
@@ -2780,7 +2780,7 @@ void OmpAttributeVisitor::CreateImplicitSymbols(
         if (sym->GetUltimate().test(Symbol::Flag::CrayPointee)) {
           std::string crayPtrName{
               semantics::GetCrayPointer(*sym).name().ToString()};
-          if (!IsObjectWithDSA(*currScope().FindSymbol(crayPtrName))) {
+          if (!IsObjectWithVisibleDSA(*currScope().FindSymbol(crayPtrName))) {
----------------
eugeneepshteyn wrote:

Question: what should be behavior with nesting?
```
!$omp parallel default(none) shared(P)
  !$omp parallel default(none)
    B = B + 1.0
  !$omp end parallel
!$omp end parallel
```

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