[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Suppression mise à jour upper bound.

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9d020f94565fd41b5c74077232d9e0f716d2c1a1

commit 9d020f94565fd41b5c74077232d9e0f716d2c1a1
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Mar 17 19:09:18 2025 +0100

    Suppression mise à jour upper bound.

Diff:
---
 gcc/fortran/trans-array.cc | 1 -
 1 file changed, 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 37d75e02867b..05ee8dd03920 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2509,7 +2509,6 @@ trans_array_constructor (gfc_ss * ss, locus * where)
                             gfc_array_index_type,
                             offsetvar, gfc_index_one_node);
       tmp = gfc_evaluate_now (tmp, &outer_loop->pre);
-      gfc_conv_descriptor_ubound_set (&loop->pre, desc, gfc_rank_cst[0], tmp);
       if (*loop_ubound0 && VAR_P (*loop_ubound0))
        gfc_add_modify (&outer_loop->pre, *loop_ubound0, tmp);
       else