[flang-commits] [flang] [Flang] Add partial support for lowering procedure pointer assignment. (PR #70461)

[Daniel Chen via flang-commits]

================
@@ -479,7 +480,8 @@ static fir::GlobalOp defineGlobal(Fortran::lower::AbstractConverter &converter,
   if (global && globalIsInitialized(global))
     return global;
 
-  if (Fortran::semantics::IsProcedurePointer(sym))
+  if (!converter.getLoweringOptions().getLowerToHighLevelFIR() &&
----------------
DanielCChen wrote:

Same as above.

https://github.com/llvm/llvm-project/pull/70461