blob: 6a768d93d67ebfde0d0258692afe7663f8267a19 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fdump-tree-original" }
!
! PR 60922: [4.9/5 regression] Memory leak with allocatable CLASS components
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
program test_leak
implicit none
type d_base_vect_type
end type
type d_vect_type
class(d_base_vect_type), allocatable :: v
end type
call test()
contains
subroutine test()
class(d_vect_type), allocatable :: x
allocate(x)
allocate(x%v)
print *,"allocated!"
end subroutine
end
! { dg-final { scan-tree-dump-times "fini_coarray" 1 "original" } }