Hello, I found an unused variable when working on pr67758. Committed as revision 228458.
Mikael
Index: ChangeLog =================================================================== --- ChangeLog (révision 228457) +++ ChangeLog (révision 228458) @@ -1,5 +1,9 @@ 2015-10-04 Mikael Morin <mik...@gcc.gnu.org> + * match.c (gfc_match_common): Remove dead variable old_blank_common. + +2015-10-04 Mikael Morin <mik...@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 (;;)