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

[via flang-commits]

================
@@ -3237,8 +3237,23 @@ class FirConverter : public Fortran::lower::AbstractConverter {
       mlir::Location loc, const Fortran::evaluate::Assignment &assign,
       const Fortran::evaluate::Assignment::BoundsSpec &lbExprs) {
     Fortran::lower::StatementContext stmtCtx;
-    if (Fortran::evaluate::IsProcedure(assign.rhs))
-      TODO(loc, "procedure pointer assignment");
+
+    if (Fortran::evaluate::IsProcedurePointer(assign.lhs)) {
----------------
jeanPerier wrote:

You should leave the procedure pointer TODO if `!lowerToHighLevelFIR()` since this code takes advantage of HLFIR.
The patch to switch to HLFIR by defalut is up for review, but we will have to be careful to not enable new features in the old lowering path for a few months until the code and option call be removed. 

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