re PR fortran/71891 (fortran/symbol.c:4864: suspicious if ?)

2016-10-28  Steven G. Kargl <kargl@gcc.gnu.org>

	PR fortran/71891
	* symbol.c (gfc_type_compatible): Fix typo.

From-SVN: r241668

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 625189fd8e8d8a716d15dae9a7681084142c1e13..684af2f0d2ef2768c3d28abfa255c183452062e9 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-10-28  Steven G. Kargl <kargl@gcc.gnu.org>
+
+       PR fortran/71891
+       * symbol.c (gfc_type_compatible): Fix typo.
+
 2016-10-27  Jakub Jelinek  <jakub@redhat.com>
 
        PR fortran/78026

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index cbe4347351f43b7b10ec05fa21f18b9eaa7f9efb..85ed375e297bf5b792ebc22c62ed78be3f1a5baa 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -4901,7 +4901,7 @@ gfc_type_compatible (gfc_typespec *ts1, gfc_typespec *ts2)
       && !is_union1 && !is_union2)
     return (ts1->type == ts2->type);
 
-  if ((is_derived1 && is_derived2) || (is_union1 && is_union1))
+  if ((is_derived1 && is_derived2) || (is_union1 && is_union2))
     return gfc_compare_derived_types (ts1->u.derived, ts2->u.derived);
 
   if (is_derived1 && is_class2)