From 161d535b80e2760abff6ffabdade50a07debc250 Mon Sep 17 00:00:00 2001 From: kargl Date: Fri, 28 Oct 2016 23:37:03 +0000 Subject: [PATCH] 2016-10-28 Steven G. Kargl PR fortran/71891 * symbol.c (gfc_type_compatible): Fix typo. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@241668 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/symbol.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 625189fd8e8..684af2f0d2e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2016-10-28 Steven G. Kargl + + PR fortran/71891 + * symbol.c (gfc_type_compatible): Fix typo. + 2016-10-27 Jakub Jelinek PR fortran/78026 diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index cbe4347351f..85ed375e297 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) -- 2.11.4.GIT