From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 102521 invoked by alias); 25 Sep 2015 20:32:28 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 102500 invoked by uid 89); 25 Sep 2015 20:32:28 -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,RP_MATCHES_RCVD,SPF_PASS autolearn=no version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: smtp26.services.sfr.fr Received: from smtp26.services.sfr.fr (HELO smtp26.services.sfr.fr) (93.17.128.163) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-GCM-SHA384 encrypted) ESMTPS; Fri, 25 Sep 2015 20:32:26 +0000 Received: from filter.sfr.fr (localhost [86.72.15.16]) by msfrf2602.sfr.fr (SMTP Server) with ESMTP id 1E63E1C000408; Fri, 25 Sep 2015 22:32:24 +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.85] (16.15.72.86.rev.sfr.net [86.72.15.16]) (using TLSv1.2 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by msfrf2602.sfr.fr (SMTP Server) with ESMTP id D39B61C000401; Fri, 25 Sep 2015 22:32:23 +0200 (CEST) X-SFR-UUID: 20150925203223866.D39B61C000401@msfrf2602.sfr.fr From: Mikael Morin Subject: [fortran, committed] Add PR55603 testcase To: gcc-patches , gfortran Message-ID: <5605AF51.1070503@sfr.fr> Date: Fri, 25 Sep 2015 20:32:00 -0000 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.2.0 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary=------------010209020709060802030402 X-IsSubscribed: yes X-SW-Source: 2015-09/txt/msg00122.txt.bz2 This is a multi-part message in MIME format. --------------010209020709060802030402 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Content-length: 127 Hello, PR55603 seems to have been fixed at some point. I have just committed the test and I'm about to close the PR. Mikael --------------010209020709060802030402 Content-Type: text/x-patch; name="r228151.diff" Content-Transfer-Encoding: 8bit Content-Disposition: attachment; filename="r228151.diff" Content-length: 1018 Index: gcc/testsuite/gfortran.dg/allocatable_function_9.f90 =================================================================== --- gcc/testsuite/gfortran.dg/allocatable_function_9.f90 (révision 0) +++ gcc/testsuite/gfortran.dg/allocatable_function_9.f90 (révision 228151) @@ -0,0 +1,17 @@ +! { dg-do run } +! +! PR fortran/55603 +! Check that the allocatable result is properly freed after use. +! +! Contributed by Damian Rouson + + type foo + end type + type(foo) a + a = bar() +contains + function bar() + type(foo), allocatable :: bar + allocate(bar) + end function +end Index: gcc/testsuite/ChangeLog =================================================================== --- gcc/testsuite/ChangeLog (révision 228150) +++ gcc/testsuite/ChangeLog (révision 228151) @@ -1,3 +1,8 @@ +2015-09-25 Mikael Morin + + PR fortran/55603 + * gfortran.dg/allocatable_function_9.f90: New. + 2015-09-25 Oleg Endo PR target/67675 --------------010209020709060802030402--