blob: 71b1f874473f5d4bb948e91411a486ff07f022d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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" } }
|