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

[Mikael Morin via Gcc-cvs]

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

commit c3bc5dfd4efa7feb1f4329dc64fbcdb4ceb05f7c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 25 17:54:23 2025 +0200

    Correction régression derived_comp_array_ref_7

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 946f6bbce3ab..b91868bcc1b3 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -9250,7 +9250,8 @@ gfc_trans_subarray_assign (tree dest, gfc_component * cm, 
gfc_expr * expr)
   lss_array->offset = gfc_conv_array_offset (dest);
   for (n = 0; n < cm->as->rank; n++)
     {
-      lss_array->start[n] = gfc_conv_array_lbound (dest, n);
+      lss_array->start[n] = lss_array->lbound[n] = gfc_conv_array_lbound 
(dest, n);
+      lss_array->spacing[n] = gfc_conv_array_spacing (dest, n);
       lss_array->stride[n] = gfc_index_one_node;
 
       mpz_init (lss_array->shape[n]);