diff options
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index debdbd9..9fc23ff 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -1007,10 +1007,8 @@ static void add_equivalences (bool *saw_equiv) { segment_info *f; - bool seen_one, more; + bool more = TRUE; - seen_one = false; - more = TRUE; while (more) { more = FALSE; @@ -1019,7 +1017,7 @@ add_equivalences (bool *saw_equiv) if (!f->sym->equiv_built) { f->sym->equiv_built = 1; - seen_one = find_equivalence (f); + bool seen_one = find_equivalence (f); if (seen_one) { *saw_equiv = true; |