[flang-commits] [flang] [Flang][OpenMP] Allow Fortran BLOCK construct inside WORKSHARE region (PR #193352)

[Jack Styles via flang-commits]

================
@@ -0,0 +1,12 @@
+! RUN: %python %S/../test_errors.py %s %flang -fopenmp
+! Test that Fortran BLOCK constructs are allowed inside WORKSHARE
+! when they contain only WORKSHARE-valid statements.
+
+subroutine test(a, b)
+  real :: a, b
+  !$omp workshare
+  block
+    a = b
+  end block
+  !$omp end workshare
+end subroutine
----------------
Stylie777 wrote:

nit: No new line at bottom of file

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