[fortran, committed] Remove dead code

[fortran, committed] Remove dead code

[Mikael Morin]

[-- Attachment #1: Type: text/plain, Size: 99 bytes --]

Hello,

I found an unused variable when working on pr67758.
Committed as revision 228458.

Mikael


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: r228458.diff --]
[-- Type: text/x-patch; name="r228458.diff", Size: 1201 bytes --]

Index: ChangeLog
===================================================================
--- ChangeLog	(révision 228457)
+++ ChangeLog	(révision 228458)
@@ -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.
Index: match.c
===================================================================
--- match.c	(révision 228457)
+++ match.c	(révision 228458)
@@ -4278,7 +4278,7 @@ 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;
@@ -4285,13 +4285,6 @@ gfc_match_common (void)
   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 (;;)