[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression assumed_rank_7.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:ef9028419ab6ec6862822421f85e16c8bfdaa26d

commit ef9028419ab6ec6862822421f85e16c8bfdaa26d
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Feb 10 22:23:58 2025 +0100

    Correction régression assumed_rank_7.f90

Diff:
---
 gcc/fortran/trans-expr.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 24ae9ff8c31d..6ed87fc63a9b 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -842,8 +842,8 @@ gfc_class_array_data_assign (stmtblock_t *block, tree 
lhs_desc, tree rhs_desc,
        }
     }
 
-  tmp = gfc_conv_descriptor_dimensions_get (lhs_desc, type);
-  gfc_conv_descriptor_dimensions_set (block, rhs_desc, tmp);
+  tmp = gfc_conv_descriptor_dimensions_get (rhs_desc, type);
+  gfc_conv_descriptor_dimensions_set (block, lhs_desc, tmp);
 }
 
 /* Takes a derived type expression and returns the address of a temporary