From: Mikael Morin <mikael@gcc.gnu.org>
Date: Sun, 4 Oct 2015 13:42:03 +0000 (+0000)
Subject: Remove dead code
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2018f53e80276197066a8602ff12ff501113e9be;p=gcc.git

Remove dead code

gcc/fortran/
	* match.c (gfc_match_common): Remove dead variable old_blank_common.

From-SVN: r228458
---

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  <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
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 (;;)