From patchwork Sun Oct 4 13:45:29 2015 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Mikael Morin X-Patchwork-Id: 526156 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id E592C1402C4 for ; Mon, 5 Oct 2015 00:45:42 +1100 (AEDT) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=JIkANna5; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :subject:to:message-id:date:mime-version:content-type; q=dns; s= default; b=UY8D/2zargNzNpB1UxJfCR7qOEdDu/wthhJinbbWCVnQgznTsz08i yAgvYKpfCcIRwN3Mo6t0TRqL/DsqvmNM3TbYu9Y4CY12wODy1pMYIUJBIYmqC8B6 8k9Cl2tG305x7ofYrGAZm9bRsyoYfxk9RAKjXY8YSNCFkt2hzOKjaE= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :subject:to:message-id:date:mime-version:content-type; s= default; bh=IvLipEjjEcXLaMN24alZT5VBMOo=; b=JIkANna5S1NYiQHUjw+7 C8PIsRD5CYwtog4X7Q/yxv7vrcxmLnRLK4OQF23higGGcKBsfltxsXKiEowYnX/S UTHD+HBiPWvucMEjPEpz/hdTXT4FVGFw17SQRAplZsXtBJW8TYdb2x7pRDc3JCJM HoAMnnh8n4+ThYVSvY1lwoI= Received: (qmail 69699 invoked by alias); 4 Oct 2015 13:45:35 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 69680 invoked by uid 89); 4 Oct 2015 13:45:34 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.8 required=5.0 tests=AWL, BAYES_00, KAM_ASCII_DIVIDERS, RCVD_IN_DNSWL_LOW, SPF_PASS, T_RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: smtp21.services.sfr.fr Received: from smtp21.services.sfr.fr (HELO smtp21.services.sfr.fr) (93.17.128.2) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Sun, 04 Oct 2015 13:45:33 +0000 Received: from filter.sfr.fr (localhost [86.72.15.3]) by msfrf2111.sfr.fr (SMTP Server) with ESMTP id 22BD87000057; Sun, 4 Oct 2015 15:45:30 +0200 (CEST) Authentication-Results: sfrmc.priv.atos.fr; dkim=none (no signature); dkim-adsp=none (no policy) header.from=mikael.morin@sfr.fr Received: from [192.168.1.87] (3.15.72.86.rev.sfr.net [86.72.15.3]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by msfrf2111.sfr.fr (SMTP Server) with ESMTP id D75F57000056; Sun, 4 Oct 2015 15:45:29 +0200 (CEST) X-SFR-UUID: 20151004134529882.D75F57000056@msfrf2111.sfr.fr From: Mikael Morin Subject: [fortran, committed] Remove dead code To: gcc-patches , gfortran Message-ID: <56112D79.7040009@sfr.fr> Date: Sun, 4 Oct 2015 15:45:29 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.2.0 MIME-Version: 1.0 X-IsSubscribed: yes 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 + * match.c (gfc_match_common): Remove dead variable old_blank_common. + +2015-10-04 Mikael Morin + 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 (;;)