From patchwork Wed Sep 18 20:52:46 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 275817 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 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (Client did not present a certificate) by ozlabs.org (Postfix) with ESMTPS id 648F82C00CF for ; Thu, 19 Sep 2013 06:52:58 +1000 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:date:from:mime-version:to:subject:content-type; q= dns; s=default; b=K1TmYCK2gKncStavPewkyD8WUFuaJXv8EfNIBxQPBmipgG UhRXjCJwZsUhCvff+SzTkTBHPr+Yi0UMdSVq+xHbwRY6C39PFqx8BuYUd3nnI318 tJ2rAeDRz/xcegvZYnFgY7/fL5sHKLfLozPdzHQyjwhBmU71n2Gg8WNi14+w4= 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 :message-id:date:from:mime-version:to:subject:content-type; s= default; bh=tnNYGzPH40XlaXQhLlsarIIqE08=; b=hxsGl2RryDi8QkG+n1k9 aWQytMWl1MTE+WKpeauFjZ3Qi4PFfmpMY74DmLTYKN5+ZdOlK8XcwLRQEuFbG9uO 6g5rR2Rg4l1/gOFtGE2cxP4j+6ftlH/sTPoF7aHtXCCNB/AyNq+ON0eLPpMIq/li kTISbr4oPhGQABLtvn2nBBc= Received: (qmail 26609 invoked by alias); 18 Sep 2013 20:52:52 -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 26593 invoked by uid 89); 18 Sep 2013 20:52:51 -0000 Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Wed, 18 Sep 2013 20:52:51 +0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=4.3 required=5.0 tests=AWL, BAYES_00, KHOP_DYNAMIC, RCVD_IN_BRBL_LASTEXT, RCVD_IN_PBL, RCVD_IN_RP_RNBL, RCVD_IN_SEMBLACK, RCVD_IN_SORBS_DUL, RDNS_DYNAMIC autolearn=no version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mx02.qsc.de Received: from archimedes.net-b.de (port-92-194-31-5.dynamic.qsc.de [92.194.31.5]) by mx02.qsc.de (Postfix) with ESMTP id 392BC2793D; Wed, 18 Sep 2013 22:52:46 +0200 (CEST) Message-ID: <523A129E.6050806@net-b.de> Date: Wed, 18 Sep 2013 22:52:46 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:17.0) Gecko/20130801 Thunderbird/17.0.8 MIME-Version: 1.0 To: gcc patches , gfortran Subject: [Patch, Fortran, committed] Plug a memory leak in gfc_check_assign_symbol Committed as obvious, Rev. 202722. Tobias Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (Revision 202713) +++ gcc/fortran/ChangeLog (Arbeitskopie) @@ -1,5 +1,9 @@ 2013-09-18 Tobias Burnus + * expr.c (gfc_check_assign_symbol): Free lvalue.ref. + +2013-09-18 Tobias Burnus + PR fortran/43366 * primary.c (gfc_variable_attr): Also handle codimension. * resolve.c (resolve_ordinary_assign): Add invalid-diagnostic for Index: gcc/fortran/expr.c =================================================================== --- gcc/fortran/expr.c (Revision 202711) +++ gcc/fortran/expr.c (Arbeitskopie) @@ -3824,6 +3824,7 @@ gfc_check_assign_symbol (gfc_symbol *sym, gfc_comp r = gfc_check_assign (&lvalue, rvalue, 1); free (lvalue.symtree); + free (lvalue.ref); if (!r) return r;