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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:72dab6026ad6b0f71b4f591251ad12a423b1a8fc

commit 72dab6026ad6b0f71b4f591251ad12a423b1a8fc
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Apr 30 19:01:47 2025 +0200

    Correction régression pr61775

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 861b689704b0..b3c5aff9d303 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3608,7 +3608,8 @@ void
 gfc_conv_tmp_array_ref (gfc_se * se)
 {
   se->string_length = se->ss->info->string_length;
-  bool tmp_array = !gfc_expr_attr (se->ss->info->expr).pointer;
+  bool tmp_array = !(se->ss->info->expr
+                    && gfc_expr_attr (se->ss->info->expr).pointer);
   gfc_conv_scalarized_array_ref (se, NULL, tmp_array);
   gfc_advance_se_ss_chain (se);
 }