re PR fortran/81341 (trunk/gcc/fortran/class.c:313: redundant condition ?)

2017-07-09  Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR fortran/81341
	* class.c (class_array_ref_detected): Remove a redundant
	condition.

From-SVN: r250083

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index dc89407d4c565004386968c701f9459035380e51..c4ddb8edd419d22f8c1040535da8567404517f7f 100644 (file)
--- 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 2d72e9570daa89c64ac0892e6d6c64c49d2ebe35..a345d131442977ff2fe800b2dc826098d3044e2f 100644 (file)
--- 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;