[flang][Semantics] Fix updating threadprivate symbols in presence of default clause

NimishMishra · NimishMishra · commit 72896040da8b · 2024-01-16T19:17:07.000+05:30
diff --git a/flang/lib/Semantics/resolve-directives.cpp b/flang/lib/Semantics/resolve-directives.cpp
@@ -1958,6 +1958,11 @@ void OmpAttributeVisitor::Post(const parser::Name &name) {
         }
       }
     }
+
+    if (Symbol * found{currScope().FindSymbol(name.source)}) {
+      if (found->test(semantics::Symbol::Flag::OmpThreadprivate))
+        return;
+    }
     std::vector<Symbol *> defaultDSASymbols;
     for (int dirDepth{0}; dirDepth < (int)dirContext_.size(); ++dirDepth) {
       DirContext &dirContext = dirContext_[dirDepth];

Original file line number	Diff line number	Diff line change
`@@ -1958,6 +1958,11 @@ void OmpAttributeVisitor::Post(const parser::Name &name) {`
`1958`	`1958`	`}`
`1959`	`1959`	`}`
`1960`	`1960`	`}`
	`1961`	`+`
	`1962`	`+ if (Symbol * found{currScope().FindSymbol(name.source)}) {`
	`1963`	`+ if (found->test(semantics::Symbol::Flag::OmpThreadprivate))`
	`1964`	`+ return;`
	`1965`	`+ }`
`1961`	`1966`	`std::vector<Symbol *> defaultDSASymbols;`
`1962`	`1967`	`for (int dirDepth{0}; dirDepth < (int)dirContext_.size(); ++dirDepth) {`
`1963`	`1968`	`DirContext &dirContext = dirContext_[dirDepth];`