[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression id-24.f

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:0ec8a9730d02e143ce2aca2424b2a037b22ca69c

commit 0ec8a9730d02e143ce2aca2424b2a037b22ca69c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 8 18:30:34 2025 +0200

    Correction régression id-24.f

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b3459ae187df..40b006bca6de 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3759,6 +3759,7 @@ gfc_conv_array_ref (gfc_se * se, gfc_array_ref * ar, 
gfc_expr *expr,
 
   tree elt_size;
   bool use_array_ref = array_ref_safe_p (decl, &elt_size);
+  elt_size = fold_convert_loc (input_location, gfc_array_index_type, elt_size);
 
   tree off = gfc_conv_array_offset (decl);
   if (use_array_ref)