[flang-commits] [flang] [flang][OpenMP] Skip default privatization for crashing cases (PR #71922)

[Kiran Chandramohan via flang-commits]

================
@@ -483,7 +483,10 @@ void DataSharingProcessor::defaultPrivatize() {
   for (const Fortran::semantics::Symbol *sym : defaultSymbols) {
     if (!symbolsInNestedRegions.contains(sym) &&
         !symbolsInParentRegions.contains(sym) &&
-        !privatizedSymbols.contains(sym)) {
+        !privatizedSymbols.contains(sym) &&
+        !Fortran::semantics::IsProcedure(*sym) &&
+        !sym->GetUltimate().has<Fortran::semantics::DerivedTypeDetails>() &&
+        !sym->GetUltimate().has<Fortran::semantics::NamelistDetails>()) {
----------------
kiranchandramohan wrote:

Move these checks to the beginning.

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