[Bug fortran/81341] trunk/gcc/fortran/class.c:313: redundant condition ?

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81341

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2017-07-08
           Assignee|unassigned at gcc dot gnu.org      |dominiq at lps dot 
ens.fr
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Testing the obvious fix

--- ../_clean/gcc/fortran/class.c       2017-04-14 23:53:52.000000000 +0200
+++ gcc/fortran/class.c 2017-07-08 12:25:51.000000000 +0200
@@ -310,7 +310,6 @@ class_array_ref_detected (gfc_ref *ref, 
       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;