[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression realloc_on_assign_23.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:6a0a97d8b984c6ce74deccc11a89854df8e68fac

commit 6a0a97d8b984c6ce74deccc11a89854df8e68fac
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Feb 17 21:28:01 2025 +0100

    Correction régression realloc_on_assign_23.f90

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 104444bed547..01f2aa8e1e0e 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -13022,6 +13022,9 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * 
expr2, bool init_flag,
       if (maybe_workshare)
        ompws_flags &= ~OMPWS_SCALARIZER_BODY;
 
+      if (reallocation != NULL_TREE)
+       gfc_add_expr_to_block (&loop.code[loop.dimen - 1], reallocation);
+
       /* Generate the copying loops.  */
       gfc_trans_scalarizing_loops (&loop, &body);