1! { dg-do run }
2!
3! PR fortran/55603
4! Check that the allocatable result is properly freed after use.
5!
6! Contributed by Damian Rouson <damian@sourceryinstitute.org>
7
8  type foo
9  end type
10  type(foo) a
11  a = bar()
12contains
13  function bar()
14    type(foo), allocatable :: bar
15    allocate(bar)
16  end function
17end
18