[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression oldstyle_1

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:16f79d6f2e610fbc98139e65cd0ae1de074cd586

commit 16f79d6f2e610fbc98139e65cd0ae1de074cd586
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon May 5 20:22:15 2025 +0200

    Correction régression oldstyle_1

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 25647bfe62b5..1aefe8436964 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -6177,6 +6177,14 @@ gfc_conv_array_initializer (tree type, gfc_expr * expr)
              else
                tmp1 = gfc_conv_mpz_to_tree (c->offset, gfc_index_integer_kind);
 
+             if (min_index)
+               {
+                 tmp1 = fold_build2_loc (input_location, PLUS_EXPR,
+                                         TREE_TYPE (tmp1), tmp1, min_index);
+                 tmp2 = fold_build2_loc (input_location, PLUS_EXPR,
+                                         TREE_TYPE (tmp2), tmp2, min_index);
+               }
+
              range = fold_build2 (RANGE_EXPR, gfc_array_index_type, tmp1, 
tmp2);
              mpz_clear (maxval);
            }