Add PR fortran/55603 working test
gcc/testsuite/ PR fortran/55603 * gfortran.dg/allocatable_function_9.f90: New. From-SVN: r228151
This commit is contained in:
parent
9f85af2617
commit
d24a1f53db
@ -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
|
||||
|
17
gcc/testsuite/gfortran.dg/allocatable_function_9.f90
Normal file
17
gcc/testsuite/gfortran.dg/allocatable_function_9.f90
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user