[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression pointer_remapping_5

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:379a1ec7d7363a465fcce04160f9daa3818d08dc

commit 379a1ec7d7363a465fcce04160f9daa3818d08dc
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Jan 4 22:36:27 2025 +0100

    Correction régression pointer_remapping_5

Diff:
---
 gcc/fortran/trans-expr.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 8e87c017eb90..632ff81e7373 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -11039,7 +11039,7 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, 
gfc_expr * expr2)
              /* Do rank remapping.  We already have the RHS's descriptor
                 converted in rse and now have to build the correct LHS
                 descriptor for it.  */
-             gfc_conv_remap_descriptor (&block, desc, rse.expr, expr1->rank,
+             gfc_conv_remap_descriptor (&block, desc, rse.expr, expr2->rank,
                                         remap->u.ar);
            }
          else