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

[Mikael Morin via Gcc-cvs]

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

commit b5c4c48cdfb2b4975254da75270e855c88aac6e9
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 a5b1c52719b7..f75747038219 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2811,6 +2811,10 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, 
bool subscript,
                      tree 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