When committing
0cfc34ad1293a5e19f1dc67c461c58d99222ac9d, I
accidentylly committed gcc/testsuite/gfortran.dg/finalize_36.f90 .
This removes this, again.
gcc/testsuite/ChangeLog:
* gfortran.dg/finalize_36.f90: Remove accidentally
committed test case.
+++ /dev/null
-! { dg-do run }
-! { dg-additional-options "-fdump-tree-original" }
-! PR 94109
-! This used to leak memory. Test case by Antony Lewis.
- module debug
- implicit none
-
- Type Tester
- real, dimension(:), allocatable :: Dat, Dat2
- end Type
-
- Type TestType2
- Type(Tester) :: T
- end type TestType2
-
- contains
-
- subroutine Leaker
- class(TestType2), pointer :: ActiveState
- Type(Tester) :: Temp
-
- allocate(Temp%Dat2(10000))
-
- allocate(TestType2::ActiveState)
- ActiveState%T = Temp
- deallocate(ActiveState)
-
- end subroutine
-
- end module
-
-
- program run
- use debug
-
- call Leaker()
-
- end program
-! { dg-final { scan-tree-dump-times "__builtin_free\\ \\(ptr2" 4 "original" } }