https://gcc.gnu.org/g:642f0bcb9030a4a16b98fc99c02fa3cf3e76a571
commit 642f0bcb9030a4a16b98fc99c02fa3cf3e76a571 Author: Mikael Morin <[email protected]> Date: Wed Oct 14 11:34:22 2026 +0200 Suppression cas inutile Diff: --- gcc/fortran/expr.cc | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index c234f2573bc1..956fefd43a2b 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -1230,16 +1230,6 @@ is_subref_array (gfc_expr * e) for (ref = e->ref; ref; ref = ref->next) { - /* If we haven't seen the array reference and this is an intrinsic, - what follows cannot be a subreference array, unless there is a - substring reference. */ - if (!seen_array && ref->type == REF_COMPONENT - && ref->next == NULL - && ref->u.c.component->ts.type != BT_CHARACTER - && ref->u.c.component->ts.type != BT_CLASS - && !gfc_bt_struct (ref->u.c.component->ts.type)) - return false; - if (ref->type == REF_ARRAY && ref->u.ar.type != AR_ELEMENT) seen_array = true;
