* [fortran, committed] Add PR55603 testcase
@ 2015-09-25 20:32 Mikael Morin
0 siblings, 0 replies; only message in thread
From: Mikael Morin @ 2015-09-25 20:32 UTC (permalink / raw)
To: gcc-patches, gfortran
[-- Attachment #1: Type: text/plain, Size: 127 bytes --]
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
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: r228151.diff --]
[-- Type: text/x-patch; name="r228151.diff", Size: 1026 bytes --]
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 <damian@sourceryinstitute.org>
+
+ 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 <mikael@gcc.gnu.org>
+
+ PR fortran/55603
+ * gfortran.dg/allocatable_function_9.f90: New.
+
2015-09-25 Oleg Endo <olegendo@gcc.gnu.org>
PR target/67675
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2015-09-25 20:32 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-09-25 20:32 [fortran, committed] Add PR55603 testcase Mikael Morin
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).