blob: 71b1f874473f5d4bb948e91411a486ff07f022d6 [file] [log] [blame]
! { dg-do run }
! { dg-options "-fdump-tree-original" }
!
! PR 48700: memory leak with MOVE_ALLOC
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
program testmv3
type bar
integer, allocatable :: ia(:), ja(:)
end type
block ! For auto-dealloc, as PROGRAM implies SAVE
type(bar), allocatable :: sm,sm2
allocate(sm)
allocate(sm%ia(10),sm%ja(10))
call move_alloc(sm2,sm)
end block
end program testmv3
! { dg-final { scan-tree-dump-times "__builtin_free" 9 "original" } }