[flang-commits] [flang] [llvm] [Flang][OpenMP] Add semantic checks for Worshare construct (PR #111358)

[Kiran Chandramohan via flang-commits]

================
@@ -61,6 +69,16 @@ subroutine workshare(aa, bb, cc, dd, ee, ff, n)
   j = j - my_func()
   !$omp end atomic
 
+  !ERROR: User defined IMPURE non-ELEMENTAL function 'impure_my_func' is not allowed in a WORKSHARE construct
----------------
kiranchandramohan wrote:

Should there be a comma?

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