From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Fri, 28 Oct 2016 23:37:03 +0000 (+0000)
Subject: re PR fortran/71891 (fortran/symbol.c:4864: suspicious if ?)
X-Git-Tag: basepoints/gcc-8~3514
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=fdfc9e44c51d32b48ba25d8af2108b38d19c5f69;p=thirdparty%2Fgcc.git

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 625189fd8e8d..684af2f0d2ef 100644
--- 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 cbe4347351f4..85ed375e297b 100644
--- 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)