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

[Mikael Morin via Gcc-cvs]

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

commit c41fda7f2a072137ea0f91351575e14b0591dbee
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Feb 18 20:33:17 2025 +0100

    Correction régression PR95196.f90

Diff:
---
 gcc/fortran/trans-expr.cc | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index ccb63e120715..ad4d0bbad6e4 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -12506,11 +12506,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * 
expr2, bool init_flag,
   if (gfc_is_reallocatable_lhs (expr1))
     {
       lss->no_bounds_check = 1;
-      if (!(expr2->expr_type == EXPR_FUNCTION
-           && expr2->value.function.isym != NULL
-           && !(expr2->value.function.isym->elemental
-                || expr2->value.function.isym->conversion)))
-       lss->is_alloc_lhs = 1;
+      lss->is_alloc_lhs = 1;
     }
   else
     lss->no_bounds_check = expr1->no_bounds_check;