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

[Mikael Morin via Gcc-cvs]

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

commit e466d64146000bb89dfea98a28beb9b8fd7d405e
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Sep 22 13:32:45 2025 +0200

    Correction régression intrinsic_size_2.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 027d50a193ec..04408f6fd5d4 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7202,7 +7202,9 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, 
tree desc, tree offset,
 
   gfc_se se;
   gfc_init_se (&se, nullptr);
-  build_array_ref (&se, desc, expr, gfc_find_array_ref (expr, false), offset);
+  build_array_ref (&se, desc, expr,
+                  gfc_find_array_ref (expr, expr->expr_type != EXPR_VARIABLE),
+                  offset);
   gfc_add_block_to_block (block, &se.pre);
   tmp = se.expr;