https://gcc.gnu.org/g:e8a0528de472275972b0eae894e507e27172c6be
commit e8a0528de472275972b0eae894e507e27172c6be Author: Mikael Morin <[email protected]> Date: Thu Oct 15 14:17:06 2026 +0200 Modification mineure Diff: --- gcc/fortran/trans-expr.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index e3b138af517e..0fd036bc8e31 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -7201,7 +7201,7 @@ copy_in_out_allowed (gfc_symbol *fsym, gfc_expr *e, bool nodesc_arg) && gfc_dummy_requires_direct_arg (fsym)) return false; - return !((fsym->attr.pointer && !fsym->attr.contiguous) + return !((fsym->attr.pointer && !fsym->attr.contiguous && fsym->as) || (fsym->as && fsym->as->type == AS_ASSUMED_RANK && e->expr_type == EXPR_VARIABLE
