diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2015-10-04 13:42:03 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2015-10-04 13:42:03 +0000 |
| commit | 2018f53e80276197066a8602ff12ff501113e9be (patch) | |
| tree | a9b575b36369fb145e3b1c112ece1af0551e08de /gcc | |
| parent | 2b3f52a2d0fb22bab9a3fdf94eaaa3d6829608fd (diff) | |
| download | gcc-2018f53e80276197066a8602ff12ff501113e9be.zip gcc-2018f53e80276197066a8602ff12ff501113e9be.tar.gz gcc-2018f53e80276197066a8602ff12ff501113e9be.tar.bz2 | |
Remove dead code
gcc/fortran/
* match.c (gfc_match_common): Remove dead variable old_blank_common.
From-SVN: r228458
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 9 |
2 files changed, 5 insertions, 8 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cdf27b2..f44d662 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 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 * match.c (gfc_match_common): Delay the common_block pointer assignment after error checking. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 2363004..29437c3 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 (;;) |