summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>2015-10-04 13:42:03 +0000
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>2015-10-04 13:42:03 +0000
commitf6392e58b9557efe8f7c7894ac0a23073fde870d (patch)
treea9b575b36369fb145e3b1c112ece1af0551e08de
parentd2f74bc823e1eb15abb8744adbf6f0876ba58204 (diff)
downloadgcc-f6392e58b9557efe8f7c7894ac0a23073fde870d.tar.gz
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
-rw-r--r--gcc/fortran/ChangeLog4
-rw-r--r--gcc/fortran/match.c9
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,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 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 (;;)