[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction compil'

[Mikael Morin via Gcc-cvs]

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

commit e8d82306d889e31bfefe89be0936403bb28403b3
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Feb 7 12:09:45 2025 +0100

    Correction compil'

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 298fbc8d8bfd..46db59383d1c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1482,7 +1482,7 @@ set_descriptor_dimension (stmtblock_t *block, tree desc, 
int dim,
   gfc_conv_descriptor_lbound_set (block, desc,
                                  gfc_rank_cst[dim], lbound);
 
-  ubound = fold_convert (gfc_array_index_type, upper);
+  ubound = fold_convert (gfc_array_index_type, ubound);
   ubound = gfc_evaluate_now (ubound, block);
   gfc_conv_descriptor_ubound_set (block, desc,
                                  gfc_rank_cst[dim], ubound);
@@ -1499,7 +1499,7 @@ set_descriptor_dimension (stmtblock_t *block, tree desc, 
int dim,
   *offset = fold_build2_loc (input_location, MINUS_EXPR,
                          gfc_array_index_type, *offset, tmp);
 
-  /* Update stride.  */
+  /* Return stride for next dimension.  */
   tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
   stride = fold_build2_loc (input_location, MULT_EXPR,
                            gfc_array_index_type, stride, tmp);