Merge pull request #1114 from schweitzpgi/ch-result

Fix pointer assignment in explicit iteration spaces to include the

Author: schweitzpgi

flang/lib/Lower/Bridge.cpp

@@ -1987,6 +1987,14 @@ class FirConverter : public Fortran::lower::AbstractConverter {
                     fir::getBase(genExprValue(toEvExpr(lbExpr), stmtCtx)));
               Fortran::lower::associateMutableBox(*this, loc, lhs, assign.rhs,
                                                   lbounds, stmtCtx);
+              if (explicitIterationSpace()) {
+                auto inners = explicitIterSpace.getInnerArgs();
+                if (!inners.empty()) {
+                  // TODO: should force a copy-in/copy-out here.
+                  // e.g., obj%ptr(i+1) => obj%ptr(i)
+                  builder->create<fir::ResultOp>(loc, inners);
+                }
+              }
             },
 
             // [4] Pointer assignment with bounds-remapping. R1036: a
@@ -2023,6 +2031,14 @@ class FirConverter : public Fortran::lower::AbstractConverter {
                              : genExprAddr(assign.rhs, stmtCtx);
               fir::factory::associateMutableBoxWithRemap(*builder, loc, lhs,
                                                          rhs, lbounds, ubounds);
+              if (explicitIterationSpace()) {
+                auto inners = explicitIterSpace.getInnerArgs();
+                if (!inners.empty()) {
+                  // TODO: should force a copy-in/copy-out here.
+                  // e.g., obj%ptr(i+1) => obj%ptr(i)
+                  builder->create<fir::ResultOp>(loc, inners);
+                }
+              }
             },
         },
         assign.u);