[llvm-branch-commits] [flang] [Flang][OpenMP] Derived type explicit allocatable member mapping (PR #96266)

[Kareem Ergawy via llvm-branch-commits]

================
@@ -953,6 +954,22 @@ bool ClauseProcessor::processMap(
           if (origSymbol && fir::isTypeWithDescriptor(origSymbol.getType()))
             symAddr = origSymbol;
 
+          if (object.sym()->owner().IsDerivedType()) {
+            omp::ObjectList objectList = gatherObjects(object, semaCtx);
+            parentObj = objectList[0];
----------------
ergawy wrote:

```suggestion
            assert(!objectList.empty());
            parentObj = objectList[0];
```

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