[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression bind-c-contiguous-3

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:db0560ecc852042019570ca0616cbda429069bfd

commit db0560ecc852042019570ca0616cbda429069bfd
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Aug 15 18:14:18 2025 +0200

    Correction régression bind-c-contiguous-3

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index f91752047fad..17d5aa1ec314 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2006,6 +2006,7 @@ set_gfc_dimension_from_cfi (stmtblock_t *block, tree gfc, 
tree cfi, tree idx,
                            bool contiguous)
 {
   /* gfc->dim[i].lbound = ... */
+  lbound = fold_convert (gfc_array_index_type, lbound);
   lbound = gfc_evaluate_now (lbound, block);
   gfc_conv_descriptor_lbound_set (block, gfc, idx, lbound);