From 4669526d7eee93bc6c5b54b6accf98b384f36f56 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Sun, 9 Jul 2017 19:41:45 +0200 Subject: [PATCH] re PR fortran/81341 (trunk/gcc/fortran/class.c:313: redundant condition ?) 2017-07-09 Dominique d'Humieres PR fortran/81341 * class.c (class_array_ref_detected): Remove a redundant condition. From-SVN: r250083 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/class.c | 1 - 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dc89407d4c5..c4ddb8edd41 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2017-07-09 Dominique d'Humieres + + PR fortran/81341 + * class.c (class_array_ref_detected): Remove a redundant + condition. + 2017-07-06 Harald Anlauf PR fortran/70071 diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 2d72e9570da..a345d131442 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -310,7 +310,6 @@ class_array_ref_detected (gfc_ref *ref, bool *full_array) else if (ref->next && ref->next->type == REF_ARRAY && !ref->next->next && ref->type == REF_COMPONENT - && ref->next->type == REF_ARRAY && ref->next->u.ar.type != AR_ELEMENT) { with_data = true; -- 2.30.2