Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fdump-tree-original" }

!

! PR 47637: [OOP] Memory leak involving INTENT(OUT) CLASS argument w/ allocatable components

!

! Contributed by Rich Townsend 

program test

type :: t

  integer, allocatable :: i(:)

end type

type(t) :: a

call init(a)

call init(a)

contains

  subroutine init(x)

    class(t), intent(out) :: x

    allocate(x%i(1000))

  end subroutine

end program

! { dg-final { scan-tree-dump-times "__builtin_free" 3 "original" } }

! { dg-final { cleanup-tree-dump "original" } }