From: Fritz Reese <fritzoreese@gmail.com>
Date: Tue, 23 Aug 2016 16:11:19 +0000 (+0000)
Subject: interface.c (compare_components): Fix typo in name check conditional.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a181ec03012c1884f45482ba2d5b8cd00ef96a71;p=gcc.git

interface.c (compare_components): Fix typo in name check conditional.

2016-08-23  Fritz Reese  <fritzoreese@gmail.com>

	gcc/fortran/
	* interface.c (compare_components): Fix typo in name check conditional.

From-SVN: r239706
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3000e919f6b..d3273a8d99c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2016-08-23  Fritz Reese  <fritzoreese@gmail.com>
+
+	* interface.c (compare_components): Fix typo in name check conditional.
+
 2016-08-22  Steven G. Kargl  <kargl@gcc.gnu.org>
 	    Bud Davis  <jmdavis@link.com>
 
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index b894b2ff5b1..119c534f170 100644
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -403,7 +403,7 @@ compare_components (gfc_component *cmp1, gfc_component *cmp2,
   if (   (d1 && (d1->attr.flavor == FL_STRUCT || d1->attr.flavor == FL_UNION)
           && ISUPPER (cmp1->name[1]))
       || (d2 && (d2->attr.flavor == FL_STRUCT || d2->attr.flavor == FL_UNION)
-          && ISUPPER (cmp1->name[1])))
+          && ISUPPER (cmp2->name[1])))
     anonymous = true;
 
   if (!anonymous && strcmp (cmp1->name, cmp2->name) != 0)