Add missing cleanup in gfortran.dg/readwrite_unf_direct_eor_1.f90

2015-02-24  Tom de Vries  <tom@codesourcery.com>

	* gfortran.dg/readwrite_unf_direct_eor_1.f90: Add missing close.

From-SVN: r220930

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a1d18bb2e40875cfa1782047a50b501d7deac04f..11f06fc6d2a6c85081e6f272c11c8290613e852c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-24  Tom de Vries  <tom@codesourcery.com>
+
+       * gfortran.dg/readwrite_unf_direct_eor_1.f90: Add missing close.
+
 2015-02-24  Tom de Vries  <tom@codesourcery.com>
 
        PR testsuite/65126

diff --git a/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90 b/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
index 2c19eba39276f98e32520a989c1798dd207719a8..461846a71301d451833beb70b62fa4bb93d939f3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
+++ b/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
@@ -10,4 +10,5 @@
       read (10,  rec=1, err=20) i, j
       call abort()
  20   continue
+      close (10, status="delete")
       end