[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Ajout assertion

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:750006e077de0e46cdd58f1a166d4cd2ef5dfb32

commit 750006e077de0e46cdd58f1a166d4cd2ef5dfb32
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Dec 18 21:57:29 2024 +0100

    Ajout assertion

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 6659f917ac01..2aed5a02e17f 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -846,6 +846,7 @@ gfc_class_array_data_assign (stmtblock_t *block, tree 
lhs_desc, tree rhs_desc,
   tmp = gfc_get_descriptor_dimension (lhs_desc);
   tmp2 = gfc_get_descriptor_dimension (rhs_desc);
 
+  gcc_assert (TREE_TYPE (tmp) == TREE_TYPE (tmp2));
   type = lhs_type ? TREE_TYPE (tmp) : TREE_TYPE (tmp2);
   tmp = build4_loc (input_location, ARRAY_RANGE_REF, type, tmp,
                    gfc_index_zero_node, NULL_TREE, NULL_TREE);