From f6392e58b9557efe8f7c7894ac0a23073fde870d Mon Sep 17 00:00:00 2001 From: mikael Date: Sun, 4 Oct 2015 13:42:03 +0000 Subject: Remove dead code gcc/fortran/ * match.c (gfc_match_common): Remove dead variable old_blank_common. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228458 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/match.c | 9 +-------- 2 files changed, 5 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cdf27b2e295..f44d66230f0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2015-10-04 Mikael Morin + + * match.c (gfc_match_common): Remove dead variable old_blank_common. + 2015-10-04 Mikael Morin PR fortran/67758 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 2363004208b..29437c36599 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -4278,20 +4278,13 @@ match match_common_name (char *name) match gfc_match_common (void) { - gfc_symbol *sym, **head, *tail, *other, *old_blank_common; + gfc_symbol *sym, **head, *tail, *other; char name[GFC_MAX_SYMBOL_LEN + 1]; gfc_common_head *t; gfc_array_spec *as; gfc_equiv *e1, *e2; match m; - old_blank_common = gfc_current_ns->blank_common.head; - if (old_blank_common) - { - while (old_blank_common->common_next) - old_blank_common = old_blank_common->common_next; - } - as = NULL; for (;;) -- cgit v1.2.1