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

[Mikael Morin via Gcc-cvs]

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

commit b5c413aa577372b7c8a39be10e5b04575ee09dcb
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Feb 18 12:35:05 2025 +0100

    Correction régression associate_46.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index cb095247efea..1d239384aaa7 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -11212,6 +11212,9 @@ gfc_is_reallocatable_lhs (gfc_expr *expr)
   gfc_ref * ref;
   gfc_symbol *sym;
 
+  if (!flag_realloc_lhs)
+    return false;
+
   if (!expr->ref)
     return false;