[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] conversion type longueur chaine

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:041909cf06af6008ce66111ffee57559ae546d94

commit 041909cf06af6008ce66111ffee57559ae546d94
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Dec 9 18:54:49 2024 +0100

    conversion type longueur chaine

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 284c20eef8ed..38cea95840b6 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -596,7 +596,7 @@ get_size_info (gfc_typespec &ts)
        tree len = ts.u.cl->backend_decl;
        return fold_build2_loc (input_location, MULT_EXPR, size_type_node,
                                size_in_bytes (elt_type),
-                               len);
+                               fold_convert (size_type_node, len));
       }
 
     case BT_CLASS: