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

[Mikael Morin]

https://gcc.gnu.org/g:089375b0c6dbfaf81f2d7991d30a667109af4a07

commit 089375b0c6dbfaf81f2d7991d30a667109af4a07
Author: Mikael Morin <mikael@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);