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

[Mikael Morin via Gcc-cvs]

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

commit b2f4942f061f5c6a006d04c8af7fea2e245ae08e
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue May 27 22:55:49 2025 +0200

    Correction régression zero_sized_15

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 dc4c0399cb2f..0109f135cfbe 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1057,7 +1057,7 @@ gfc_trans_create_temp_array (stmtblock_t * pre, 
stmtblock_t * post, gfc_ss * ss,
       to[0] = NULL_TREE;
     }
   type =
-    gfc_get_array_type_bounds (eltype, total_dim, 0, from, to, 1,
+    gfc_get_array_type_bounds (eltype, total_dim, 0, from, to, PACKED_STATIC,
                               GFC_ARRAY_UNKNOWN, true,
                               ss->info->expr ? ss->info->expr->ts.type
                                              : BT_UNKNOWN);
@@ -7629,6 +7629,8 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
                                       : NULL),
                                      loop.dimen);
 
+      loop.temp_ss->info->expr = expr;
+
       se->string_length = loop.temp_ss->info->string_length;
       gcc_assert (loop.temp_ss->dimen == loop.dimen);
       gfc_add_ss_to_loop (&loop, loop.temp_ss);