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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:4ca9998c492206cdfb4d104056a70a7059688954

commit 4ca9998c492206cdfb4d104056a70a7059688954
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Dec 9 18:38:07 2024 +0100

    Ajout conversion elem_len

Diff:
---
 gcc/fortran/trans-array.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b94d56110477..284c20eef8ed 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -625,7 +625,8 @@ build_dtype (gfc_typespec &ts, int rank, const 
symbol_attribute &)
   if (ts.type != BT_CLASS)
     {
       tree elem_len_field = gfc_advance_chain (fields, GFC_DTYPE_ELEM_LEN);
-      tree elem_len_val = get_size_info (ts);
+      tree elem_len_val = fold_convert (TREE_TYPE (elem_len_field),
+                                       get_size_info (ts));
       CONSTRUCTOR_APPEND_ELT (v, elem_len_field, elem_len_val);
     }