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

[Mikael Morin]

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

commit b5f7f32e522d8a82d75939ff7ead5bbc60e9bf66
Author: Mikael Morin <mikael@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);