[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Revert "Correction régression realloc_on_assign_10"

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:4fe27ab156281eae41f8dfbe721fe93c4255b647

commit 4fe27ab156281eae41f8dfbe721fe93c4255b647
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Feb 8 17:23:07 2025 +0100

    Revert "Correction régression realloc_on_assign_10"
    
    This reverts commit 007ca869933eb74b76398200ef0237219ba01cd8.

Diff:
---
 gcc/fortran/trans-array.cc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 9f10c2770d99..d0f0e8465743 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1667,12 +1667,11 @@ public:
 
 
 tree
-cond_descr_lb::lower_bound (stmtblock_t *block ATTRIBUTE_UNUSED,
-                           int dim ATTRIBUTE_UNUSED) const
+cond_descr_lb::lower_bound (stmtblock_t *block ATTRIBUTE_UNUSED, int dim) const
 {
   tree lbound = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[dim]);
   lbound = fold_build3_loc (input_location, COND_EXPR,
-                           gfc_array_index_type, logical_true_node,
+                           gfc_array_index_type, cond,
                            gfc_index_one_node, lbound);
   return lbound;
 }