[flang-commits] [flang] [flang][OpenMP] Explicitly set Shared DSA in symbols (PR #142154)

[Tom Eccles via flang-commits]

================
@@ -43,4 +45,14 @@ program omp_copyprivate
 
   print *, a, b
 
+  !$omp task
+    !$omp parallel private(c, d)
+      allocate(c(5))
+      allocate(d(10))
+      !$omp single
+        c = 22
+        d = 33
+      !$omp end single copyprivate(c, d)
----------------
tblah wrote:

nit: please could you add a comment explaining that this is checking the error is not generated in this case to see that c and d inherit PRIVATE DSA from the enclosing PARALLEL.

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