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

DanielCChen · DanielCChen · commit 7c06925ca69b · 2024-01-26T13:20:20.000-05:00
diff --git a/flang/lib/Lower/ConvertCall.cpp b/flang/lib/Lower/ConvertCall.cpp
@@ -451,6 +451,7 @@ 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,6 +451,7 @@ fir::ExtendedValue Fortran::lower::genCallOpAndResult(`
`451`	`451`	`callResult = call.getResult(0);`
`452`	`452`	`}`
`453`	`453`
	`454`	`+ // if (!isProcedurePointer && caller.mustSaveResult()) {`
`454`	`455`	`if (caller.mustSaveResult()) {`
`455`	`456`	`assert(allocatedResult.has_value());`
`456`	`457`	`builder.create<fir::SaveResultOp>(loc, callResult,`