https://gcc.gnu.org/g:02a1c10adef2ecf3a240b2fe102778d0a2d27e83
commit 02a1c10adef2ecf3a240b2fe102778d0a2d27e83 Author: Mikael Morin <[email protected]> Date: Wed Oct 15 19:28:33 2025 +0200 Correction régression transpose_4.f90 Diff: --- gcc/fortran/trans-expr.cc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index e434637f0c51..060cf1655c4f 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -6606,7 +6606,12 @@ contiguous_argument (gfc_actual_arglist *arg) { if (isym->id == GFC_ISYM_CAF_GET) return true; - return false; + + gfc_expr *noncopying_arg = gfc_get_noncopying_intrinsic_argument (expr); + if (noncopying_arg) + expr = noncopying_arg; + else + return false; } if (dummy == nullptr)
