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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:85a0e475a950d62fbb859cf9bfa5f0052e2ae32f

commit 85a0e475a950d62fbb859cf9bfa5f0052e2ae32f
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 1bb18da10bc8..c50b1e05cdbd 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -11141,7 +11141,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