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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:329a52371595d3702c2759d928377ad39d756cc9

commit 329a52371595d3702c2759d928377ad39d756cc9
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 8ce1afbf9bf6..9963b10f4fa8 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);
 }