[llvm-branch-commits] [flang] [flang][OpenMP] Check if loop nest/sequence is well-formed (PR #188025)

[Krzysztof Parzyszek via llvm-branch-commits]

================
@@ -1326,4 +1334,64 @@ LoopSequence::Depth LoopSequence::getNestedDepths() const {
   }
   return children_.front().depth_;
 }
+
+static bool IsDoConcurrent(const parser::ExecutionPartConstruct &x) {
+  if (auto *loop{parser::Unwrap<parser::DoConstruct>(x)}) {
+    return loop->IsDoConcurrent();
+  }
+  return false;
+}
+
+static Reason whyNotWellFormed(
----------------
kparzysz wrote:

Done

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