[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pdt_7

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8c1fb2fc15706cb466d5eb7279b56baecf6962bd
commit 8c1fb2fc15706cb466d5eb7279b56baecf6962bd
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 25 20:39:06 2025 +0200

    Correction régression pdt_7

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 4c3df7b646c4..87e119dbc4be 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -3840,6 +3840,7 @@ gfc_set_pdt_array_descriptor (stmtblock_t *block, tree 
desc,
       tree upper = tse.expr;
       gfc_conv_descriptor_ubound_set (block, desc, gfc_rank_cst[i], upper);
       size = gfc_evaluate_now (size, block);
+      size = fold_convert_loc (input_location, gfc_array_index_type, size);
       gfc_conv_descriptor_spacing_set (block, desc, gfc_rank_cst[i], size);
       offset = fold_build2_loc (input_location, MINUS_EXPR,
                                gfc_array_index_type, offset, size);