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 3000e919f6b3d52cc5050a17b596902bc9f6140c..d3273a8d99c0249beaaf22ef3c80960e0b51ac12 100644 (file)
--- 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 b894b2ff5b17edff71935d08cbd4f7044d0b5509..119c534f17033f3138573797761ddc59547cf737 100644 (file)
--- 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)