[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    [Committed] PR fortran/71891 -- Fix obvious typo
From:       Steve Kargl <sgk () troutmask ! apl ! washington ! edu>
Date:       2016-10-28 23:42:43
Message-ID: 20161028234243.GA8312 () troutmask ! apl ! washington ! edu
[Download RAW message or body]

I've committed the following to both 6-branch and trunk.

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

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

Index: symbol.c
===================================================================
--- symbol.c	(revision 241668)
+++ symbol.c	(working copy)
@@ -4861,7 +4861,7 @@ gfc_type_compatible (gfc_typespec *ts1, 
       && !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)

-- 
Steve
[prev in list] [next in list] [prev in thread] [next in thread]