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

[Mikael Morin via Gcc-cvs]

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

commit d77b443e59e01da56ac42266512b800d77e6f99f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Aug 20 15:57:49 2025 +0200

    Correction régression bounds_check_22

Diff:
---
 gcc/fortran/trans-array.cc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index c0b1752dd879..683b09481dde 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -10642,6 +10642,7 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo 
*loop,
       gfc_add_modify (&unalloc_init_block, guard, logical_false_node);
 
       stmtblock_t loop_pre_block;
+      gfc_init_block (&loop_pre_block);
       gfc_set_empty_descriptor (&loop_pre_block, desc, expr1->rank);
 
       tmp = fold_build2_loc (input_location, EQ_EXPR,