[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Nettoyage gfc_set_pdt_array_descriptor

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

commit 8d50e6c719d88c9c71b8518a6852b85f7d2729ca
Author: Mikael Morin <[email protected]>
Date:   Thu Sep 25 11:55:22 2025 +0200

    Nettoyage gfc_set_pdt_array_descriptor

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 089503baf8a6..a25f5fc6ce89 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2623,7 +2623,6 @@ gfc_set_pdt_array_descriptor (stmtblock_t *block, tree descr,
       tree lower = tse.expr;
       gfc_add_block_to_block (block, &tse.pre);
       gfc_conv_descriptor_lbound_set (block, descr, gfc_rank_cst[i], lower);
-      gfc_add_block_to_block (block, &tse.post);
       e = gfc_copy_expr (as->upper[i]);
       gfc_insert_parameter_exprs (e, pdt_param_list);
       gfc_conv_expr_type (&tse, e, gfc_array_index_type);
@@ -2631,7 +2630,6 @@ gfc_set_pdt_array_descriptor (stmtblock_t *block, tree descr,
       tree upper = tse.expr;
       gfc_add_block_to_block (block, &tse.pre);
       gfc_conv_descriptor_ubound_set (block, descr, gfc_rank_cst[i], upper);
-      gfc_add_block_to_block (block, &tse.post);
       gfc_conv_descriptor_stride_set (block, descr, gfc_rank_cst[i], size);
       size = gfc_evaluate_now (size, block);
       offset = fold_build2_loc (input_location, MINUS_EXPR,