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

[Mikael Morin via Gcc-cvs]

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

commit fee57141f4ffe49067d8c2855661c072e2ff6a13
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 064cb32dfba5..b496e4e76e4c 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -3862,6 +3862,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);