[Flang]: Lowering reference to functions that return a procedure pointer.

DanielCChen · DanielCChen · commit 1cdab4d51673 · 2024-01-26T13:20:19.000-05:00
diff --git a/flang/lib/Lower/ConvertCall.cpp b/flang/lib/Lower/ConvertCall.cpp
@@ -451,7 +451,6 @@ fir::ExtendedValue Fortran::lower::genCallOpAndResult(
       callResult = call.getResult(0);
   }
 
-  // if (!isProcedurePointer && caller.mustSaveResult()) {
   if (caller.mustSaveResult()) {
     assert(allocatedResult.has_value());
     builder.create<fir::SaveResultOp>(loc, callResult,

Original file line number	Diff line number	Diff line change
`@@ -451,7 +451,6 @@ fir::ExtendedValue Fortran::lower::genCallOpAndResult(`
`451`	`451`	`callResult = call.getResult(0);`
`452`	`452`	`}`
`453`	`453`
`454`		`- // if (!isProcedurePointer && caller.mustSaveResult()) {`
`455`	`454`	`if (caller.mustSaveResult()) {`
`456`	`455`	`assert(allocatedResult.has_value());`
`457`	`456`	`builder.create<fir::SaveResultOp>(loc, callResult,`