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

[Kiran Chandramohan 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*/
----------------
kiranchandramohan wrote:

Thanks. Done.

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