File tree Expand file tree Collapse file tree 1 file changed +0
-3
lines changed Expand file tree Collapse file tree 1 file changed +0
-3
lines changed Original file line number Diff line number Diff line change @@ -156,8 +156,6 @@ fir::ExtendedValue Fortran::lower::genCallOpAndResult(
156
156
using PassBy = Fortran::lower::CallerInterface::PassEntityBy;
157
157
// Handle cases where caller must allocate the result or a fir.box for it.
158
158
bool mustPopSymMap = false ;
159
-
160
- // Is procedure pointer functin result.
161
159
if (caller.mustMapInterfaceSymbols ()) {
162
160
symMap.pushScope ();
163
161
mustPopSymMap = true ;
@@ -448,7 +446,6 @@ fir::ExtendedValue Fortran::lower::genCallOpAndResult(
448
446
callResult = call.getResult (0 );
449
447
}
450
448
451
- // if (!isProcedurePointer && caller.mustSaveResult()) {
452
449
if (caller.mustSaveResult ()) {
453
450
assert (allocatedResult.has_value ());
454
451
builder.create <fir::SaveResultOp>(loc, callResult,
You can’t perform that action at this time.
0 commit comments