From c19ef23bb984194a0db18332631c61d7417435ca Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 13 Jun 2020 11:40:52 +0200 Subject: [PATCH] Remove failing test case accidentally committed. 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. --- gcc/testsuite/gfortran.dg/finalize_36.f90 | 39 ------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/finalize_36.f90 diff --git a/gcc/testsuite/gfortran.dg/finalize_36.f90 b/gcc/testsuite/gfortran.dg/finalize_36.f90 deleted file mode 100644 index 432f547..0000000 --- a/gcc/testsuite/gfortran.dg/finalize_36.f90 +++ /dev/null @@ -1,39 +0,0 @@ -! { 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" } } -- 2.7.4