gcc/testsuite/gfortran.dg/allocatable_function_9.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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