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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:007ca869933eb74b76398200ef0237219ba01cd8

commit 007ca869933eb74b76398200ef0237219ba01cd8
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Feb 8 14:35:14 2025 +0100

    Correction régression realloc_on_assign_10

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index d0f0e8465743..9f10c2770d99 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1667,11 +1667,12 @@ public:
 
 
 tree
-cond_descr_lb::lower_bound (stmtblock_t *block ATTRIBUTE_UNUSED, int dim) const
+cond_descr_lb::lower_bound (stmtblock_t *block ATTRIBUTE_UNUSED,
+                           int dim ATTRIBUTE_UNUSED) 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, cond,
+                           gfc_array_index_type, logical_true_node,
                            gfc_index_one_node, lbound);
   return lbound;
 }