[flang-commits] [flang] [flang][semantics][OpenMP] no privatisation of stmt functions (PR #106550)

[Tom Eccles via flang-commits]

================
@@ -2721,6 +2721,14 @@ void OmpAttributeVisitor::CheckObjectInNamelist(
         "Variable '%s' in NAMELIST cannot be in a %s clause"_err_en_US,
         name.ToString(), clauseName.str());
   }
+
+  if (stmtFunctionExprSymbols_.find(ultimateSymbol) !=
+      stmtFunctionExprSymbols_.end()) {
+    context_.Say(name.source,
+        "Variable '%s' in STATEMENT FUNCTION expression cannot be in a "
----------------
tblah wrote:

Thanks for taking a look. I have removed the capitalization of "statement function" here.

I left the error message string across multiple lines because the next word in the string is `%s` anyway.

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