[flang-commits] [flang] [Flang][OpenMP] Permit THREADPRIVATE variables in EQUIVALENCE statements (PR #186696)

[Michael Klemm via flang-commits]

================
@@ -1364,8 +1364,11 @@ void OmpStructureChecker::CheckThreadprivateOrDeclareTargetVar(
     for (const auto &obj : cb->objects()) {
       if (FindEquivalenceSet(*obj)) {
         context_.Say(name.source,
-            "A variable in a %s directive cannot appear in an EQUIVALENCE statement (variable '%s' from common block '/%s/')"_err_en_US,
+            "A variable in a %s directive used in an EQUIVALENCE statement is "
+            "an OpenMP extension (variable '%s' from common block "
+            "'/%s/')"_warn_en_US,
----------------
mjklemm wrote:

Fixed

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