https://gcc.gnu.org/g:2a239053be4a9d96ff509b38c8b005f77190ad39
commit 2a239053be4a9d96ff509b38c8b005f77190ad39 Author: Mikael Morin <[email protected]> Date: Thu Oct 15 14:12:45 2026 +0200 Correction partielle assumed_rank_8 Diff: --- gcc/fortran/trans-expr.cc | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 5d5c190e4fca..995a7f60ea5f 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -7201,10 +7201,8 @@ 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 && fsym->as - && (fsym->as->type == AS_ASSUMED_SHAPE - || fsym->as->type == AS_ASSUMED_RANK - || fsym->as->type == AS_DEFERRED)); + return !((fsym->attr.pointer && !fsym->attr.contiguous) + || (fsym->as && fsym->as->type == AS_ASSUMED_RANK)); }
