Remove dead code
gcc/fortran/ * match.c (gfc_match_common): Remove dead variable old_blank_common. From-SVN: r228458
This commit is contained in:
parent
2b3f52a2d0
commit
2018f53e80
@ -1,3 +1,7 @@
|
||||
2015-10-04 Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
* match.c (gfc_match_common): Remove dead variable old_blank_common.
|
||||
|
||||
2015-10-04 Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
PR fortran/67758
|
||||
|
@ -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 (;;)
|
||||
|
Loading…
Reference in New Issue
Block a user