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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:57a48a2b589ccf9ec3457825cc487b15674e835e

commit 57a48a2b589ccf9ec3457825cc487b15674e835e
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 11a203e474b8..27d8dda70573 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2780,6 +2780,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:
@@ -4308,7 +4309,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;