https://gcc.gnu.org/g:9b7d3c675ae70d07aba9f2f1ac6ade35d9114912
commit 9b7d3c675ae70d07aba9f2f1ac6ade35d9114912 Author: Mikael Morin <[email protected]> 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 b5135b9b41c2..11592270ddd6 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;
