* gfortran.dg/direct_io_1.f90, gfortran.dg/iostat_2.f90,

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / direct_io_1.f90

diff --git a/gcc/testsuite/gfortran.dg/direct_io_1.f90 b/gcc/testsuite/gfortran.dg/direct_io_1.f90
index 92eff29..96ae490 100644 (file)
--- a/gcc/testsuite/gfortran.dg/direct_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_1.f90
@@ -28,5 +28,5 @@ program direct_io_1
   n = 1
   write(12, rec=n) mt, nt
   write(12, rec=n+1) (p(m), m=1, nt)
-  close(12)
+  close(12, status='delete')
 end program