re PR fortran/28813 (gfortran.dg/direct_io_6.f90 can exhaust system disk space)

2006-08-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR 28813
	* gfortran.dg/direct_io_6.f90: Remove test.

From-SVN: r116368

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 45cf402e21b337e627aa9004d4e2616e8f66c5c2..3dfdc235bcb39eb3b544283781fd6ffeef57d3e2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR 28813
+       * gfortran.dg/direct_io_6.f90: Remove test.
+
 2006-08-23  Stuart Hastings  <stuart@apple.com>
 
        PR 28825

diff --git a/gcc/testsuite/gfortran.dg/direct_io_6.f90 b/gcc/testsuite/gfortran.dg/direct_io_6.f90
deleted file mode 100644 (file)
index 2089101..0000000
--- a/gcc/testsuite/gfortran.dg/direct_io_6.f90
+++ /dev/null
@@ -1,28 +0,0 @@
-!{ dg-do run }
-!{ dg-skip-if "No large files" { *-*-aix* hppa*-*-hpux* } { "*" } { "" } }
-! PR25289 Cannot handle record numbers larger than huge(0_4).
-! This test checks that very large record numbers can be used.
-! Derived from example in PR.
-! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
-      integer(KIND=1) abyte
-      integer(KIND=8) n
-      n = huge(0_4)
-      n = n * 256
-      abyte = 105
-      open(10,file="foo",recl=2,form='unformatted',access='direct')
-      write(10,rec=n) abyte
-      abyte = 0
-      read(10,rec=n) abyte
-      if (abyte.ne.105) call abort()
-      write(10,rec=1) abyte
-      abyte = 0
-      read(10,rec=1) abyte
-      if (abyte.ne.105) call abort()
-      n=n/2
-      write(10,rec=n) abyte
-      abyte = 0
-      read(10,rec=n) abyte
-      if (abyte.ne.105) call abort()
-      close(10, status="delete")
-      end
-