[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction regression class_result_9

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5fbfa8757f78b06077057683411785fff8c2b05f

commit 5fbfa8757f78b06077057683411785fff8c2b05f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat May 3 22:31:40 2025 +0200

    Correction regression class_result_9

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 29ba07bf5680..25647bfe62b5 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2816,6 +2816,10 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, 
bool subscript,
                      spacing = gfc_conv_descriptor_spacing_get (tmp, tree_dim);
                      spacing = gfc_evaluate_now (spacing, &outer_loop->pre);
                      info->spacing[dim] = spacing;
+
+                     tree lbound = gfc_conv_descriptor_lbound_get (tmp, 
tree_dim);
+                     lbound = gfc_evaluate_now (lbound, &outer_loop->pre);
+                     info->lbound[dim] = lbound;
                    }
              }
            else