gcc/testsuite/gfortran.dg/auto_dealloc_2.f90

   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
  14 type(t) :: a
  15
  16 call init(a)
  17 call init(a)
  18
  19 contains
  20
  21   subroutine init(x)
  22     class(t), intent(out) :: x
  23     allocate(x%i(1000))
  24   end subroutine
  25
  26 end program
  27
  28 ! { dg-final { scan-tree-dump-times "__builtin_free" 3 "original" } }
  29 ! { dg-final { cleanup-tree-dump "original" } }