[gcc.git] / gcc / testsuite / gfortran.dg / auto_dealloc_2.f90

! { 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 <townsend@astro.wisc.edu>

program test

type :: t
  integer, allocatable :: i(:)
end type

block ! New block as the main program implies SAVE
type(t) :: a

call init(a)
call init(a)
end block
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" 4 "original" } }
! { dg-final { scan-tree-dump-times "_vptr->_final \\(&desc" 1 "original" } }
Commit	Line	Data
c7f17815 JW	1	! { dg-do compile }
	2	! { dg-options "-fdump-tree-original" }
	3	!
	4	! PR 47637: [OOP] Memory leak involving INTENT(OUT) CLASS argument w/ allocatable components
	5	!
	6	! Contributed by Rich Townsend <townsend@astro.wisc.edu>
	7
	8	program test
	9
	10	type :: t
	11	integer, allocatable :: i(:)
	12	end type
	13
ef292537	14	block ! New block as the main program implies SAVE
c7f17815 JW	15	type(t) :: a
	16
	17	call init(a)
	18	call init(a)
ef292537	19	end block
c7f17815 JW	20	contains
	21
	22	subroutine init(x)
	23	class(t), intent(out) :: x
	24	allocate(x%i(1000))
	25	end subroutine
	26
d7caf313	27	end program
c7f17815	28
ed3f1ef2	29	! { dg-final { scan-tree-dump-times "__builtin_free" 4 "original" } }
d7caf313	30	! { dg-final { scan-tree-dump-times "_vptr->_final \\(&desc" 1 "original" } }