File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -1264,7 +1264,7 @@ class FirConverter : public Fortran::lower::AbstractConverter {
1264
1264
forceControlVariableBinding (ctrlVar, lp.getInductionVar ());
1265
1265
loops.push_back (lp);
1266
1266
}
1267
- if (outermost)
1267
+ if (outermost)
1268
1268
explicitIterSpace.setOuterLoop (loops[0 ]);
1269
1269
explicitIterSpace.appendLoops (loops);
1270
1270
if (const auto &mask =
@@ -1882,9 +1882,10 @@ class FirConverter : public Fortran::lower::AbstractConverter {
1882
1882
if (lhsType->IsPolymorphic () && isWholeAllocatable (assign.lhs ))
1883
1883
TODO (loc, " assignment to polymorphic allocatable" );
1884
1884
1885
- // Note: no ad-hoc handling for pointers is require here, the
1885
+ // Note: No ad-hoc handling for pointers is required here. The
1886
1886
// target will be assigned as per 2018 10.2.1.3 p2. genExprAddr
1887
- // on a pointer returns the target address.
1887
+ // on a pointer returns the target address and not the address of
1888
+ // the pointer variable.
1888
1889
1889
1890
if (assign.lhs .Rank () > 0 || explicitIterationSpace ()) {
1890
1891
// Array assignment
You can’t perform that action at this time.
0 commit comments