https://gcc.gnu.org/g:e78d5dc6d3b27c91a9b71cd909db167c0913da22
commit e78d5dc6d3b27c91a9b71cd909db167c0913da22 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 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;
