[flang-commits] [flang] Skip compiler directives between OMP PARALLEL DO and the loop (PR #81021)

[Tom Eccles via flang-commits]

================
@@ -30,6 +30,13 @@
      c = c - 1
   END DO outer
 
+  ! Accept directives between parallel do and actual loop.
+  !$OMP PARALLEL DO
+  !DIR$ VECTOR ALIGNED
+  DO 20 i=1,N
+     a = a + 0.5
+20   CONTINUE
+
----------------
tblah wrote:

nit: I think this needs an `!$OMP END PARALLEL DO` to be valid openmp

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