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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/direct_io_6.f90

-!{ 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
-