re PR fortran/57762 (Memory leak in gfortran.dg/class_array_7.f03 after revision...

2013-07-22  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57762
        * gfortran.dg/class_array_7.f03: Fix memory leak.

From-SVN: r201137

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 327018fdd92e012ddcb474d31da161797df2e19c..5b167b2a891260e1b285db2e54c072566165bed2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-22  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/57762
+       * gfortran.dg/class_array_7.f03: Fix memory leak.
+
 2013-07-22  Paolo Carlini  <paolo.carlini@oracle.com>
 
        PR c++/52816

diff --git a/gcc/testsuite/gfortran.dg/class_array_7.f03 b/gcc/testsuite/gfortran.dg/class_array_7.f03
index 435e6f52ee61352371332f0b3a1c9ac655b1658f..5c9673ff72bf6135b2362dd626ca3e65d18c7359 100644 (file)
--- a/gcc/testsuite/gfortran.dg/class_array_7.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_7.f03
@@ -54,4 +54,5 @@ program main
   if (trim (print_type ("a", a)) .ne. "a is extended_type") call abort
   call reallocate (a)
   if (trim (print_type ("a", a)) .ne. "a is base_type") call abort
+  deallocate (a)
 end program main