[gcc(refs/users/mikael/heads/refactor_descriptor_v07)] Correction ICE class_allocate_21

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:88831c5495cbc78838876629c7379038f6e49a52

commit 88831c5495cbc78838876629c7379038f6e49a52
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Jun 30 11:43:56 2025 +0200

    Correction ICE class_allocate_21

Diff:
---
 gcc/fortran/trans-array.cc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index af0736300cb5..e4541e6004e2 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -5671,9 +5671,7 @@ gfc_array_init_size (tree descriptor, int rank, int 
corank, tree * poffset,
   else if (expr->ts.type == BT_CLASS && !explicit_ts
           && expr3 && expr3->ts.type != BT_CLASS
           && expr3_elem_size != NULL_TREE && expr3_desc == NULL_TREE)
-    gfc_conv_descriptor_elem_len_set (pblock, descriptor,
-                                     fold_convert (TREE_TYPE (tmp),
-                                                   expr3_elem_size));
+    gfc_conv_descriptor_elem_len_set (pblock, descriptor, expr3_elem_size);
   else
     gfc_conv_descriptor_dtype_set (pblock, descriptor, gfc_get_dtype (type));