| ! { 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" } } |
| ! { dg-final { cleanup-tree-dump "original" } } |