https://gcc.gnu.org/g:8a72f992865a98027786a1a2d6c924642f852ac5
commit 8a72f992865a98027786a1a2d6c924642f852ac5 Author: Mikael Morin <[email protected]> Date: Thu Oct 15 15:51:49 2026 +0200 Correction régression is_contiguous_2 Diff: --- gcc/fortran/trans-expr.cc | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index fa571db82fce..d2b1e01ed6b6 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -7208,10 +7208,7 @@ copy_in_out_allowed (gfc_symbol *fsym, gfc_expr *e, bool nodesc_arg) return !((fsym->attr.pointer && !fsym->attr.contiguous && fsym->as) || (fsym->as - && fsym->as->type == AS_ASSUMED_RANK - && e->expr_type == EXPR_VARIABLE - && e->symtree->n.sym->as - && e->symtree->n.sym->as->type == AS_ASSUMED_RANK)); + && fsym->as->type == AS_ASSUMED_RANK)); }
