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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8c797739bfbd67c27b6c9ea3fb5d52ee669171c1

commit 8c797739bfbd67c27b6c9ea3fb5d52ee669171c1
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 bebfc9dff1d2..ab6e7766e89f 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3878,6 +3878,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)