[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régressions vector_subscript*

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:7194a06e655f43371ed1e140ba822d1d2cea5a3e

commit 7194a06e655f43371ed1e140ba822d1d2cea5a3e
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon May 26 21:52:17 2025 +0200

    Correction régressions vector_subscript*

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b9aa4f2cae69..c0a550fd8c5e 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2782,6 +2782,7 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, 
bool subscript,
          gfc_add_block_to_block (&outer_loop->pre, &se.pre);
          gfc_add_block_to_block (&outer_loop->post, &se.post);
          info->descriptor = se.expr;
+         gfc_conv_array_lbound_spacing (&outer_loop->pre, ss, 0);
          break;
 
        case GFC_SS_INTRINSIC:
@@ -4427,7 +4428,8 @@ gfc_conv_array_lbound_spacing (stmtblock_t * block, 
gfc_ss * ss, int dim)
   gfc_array_info *info;
 
   gcc_assert (ss->info->type == GFC_SS_SECTION
-             || ss->info->type == GFC_SS_COMPONENT);
+             || ss->info->type == GFC_SS_COMPONENT
+             || ss->info->type == GFC_SS_VECTOR);
 
   info = &ss->info->data.array;
   tree desc = info->descriptor;