! { 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" } }