[flang-commits] [flang] [Flang][OpenMP] Fix nested PARALLEL SECTIONS validation (PR #179419)

[Krzysztof Parzyszek via flang-commits]

================
@@ -633,11 +633,31 @@ void OmpStructureChecker::CheckMultListItems() {
     CheckMultipleOccurrence(listVars, nameList, clause->source, "LINEAR");
   }
 }
+bool OmpStructureChecker::IsCombinedParallelWorksharing(
+    llvm::omp::Directive directive) const {
+  // Combined parallel-worksharing constructs create their own parallel region
+  // They should not be subject to worksharing nesting restrictions
+  switch (directive) {
+    case llvm::omp::OMPD_parallel_for:
----------------
kparzysz wrote:

Fortran has DO instead of FOR, so this should be `OMPD_parallel_do`.

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