[flang-commits] [flang] Assumed-size arrays are shared and cannot be privatized (PR #112963)

[Michael Klemm via flang-commits]

================
@@ -2047,6 +2047,7 @@ void OmpAttributeVisitor::Post(const parser::OpenMPAllocatorsConstruct &x) {
 static bool IsPrivatizable(const Symbol *sym) {
   auto *misc{sym->detailsIf<MiscDetails>()};
   return !IsProcedure(*sym) && !IsNamedConstant(*sym) &&
+      !semantics::IsAssumedSizeArray(*sym) && /*Assumed-size arrays are shared*/
----------------
mjklemm wrote:

```suggestion
      !semantics::IsAssumedSizeArray(*sym) && /* OpenMP 5.2, 5.1.1: Assumed-size arrays are shared */
```

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