This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Committed] Add missing cleanup in gfortran.dg/readwrite_unf_direct_eor_1.f90


Hi,

I found a fort.10 file in the test directories, and tracked it back to readwrite_unf_direct_eor_1.f90, which creates fort.10 but doesn't remove it. This patch fixes that.

Tested by running the test-case and checking that fort.10 doesn't appear anymore in the test directory.

Committed as obvious.

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

	* gfortran.dg/readwrite_unf_direct_eor_1.f90: Add missing close.
---
 gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90 | 1 +
 1 file changed, 1 insertion(+)

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 2c19eba..461846a 100644
--- 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
-- 
1.9.1


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]