diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/class.c | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dc89407..c4ddb8e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2017-07-09 Dominique d'Humieres <dominiq@lps.ens.fr> + + PR fortran/81341 + * class.c (class_array_ref_detected): Remove a redundant + condition. + 2017-07-06 Harald Anlauf <anlauf@gmx.de> PR fortran/70071 diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 2d72e95..a345d13 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; |