diff options
| author | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-08-23 16:11:19 +0000 |
|---|---|---|
| committer | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-08-23 16:11:19 +0000 |
| commit | 56610eb3a7ec6afcd22e4ae67ac7f2cdeb756e53 (patch) | |
| tree | a89ca2de85d5d11782b24279ed05cea5b1041ce5 /gcc/fortran/interface.c | |
| parent | 629209c8fb7f67836d7fb23de500a05e26b03d85 (diff) | |
2016-08-23 Fritz Reese <fritzoreese@gmail.com>
gcc/fortran/
* interface.c (compare_components): Fix typo in name check conditional.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@239706 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b894b2ff5b17..119c534f1703 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) |