From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 24 Aug 2006 01:10:55 +0000 (+0000)
Subject: re PR fortran/28813 (gfortran.dg/direct_io_6.f90 can exhaust system disk space)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=664ee581a846a244e26c4e62b3770eae46c965ed;p=gcc.git

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 45cf402e21b..3dfdc235bcb 100644
--- 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
index 2089101001c..00000000000
--- 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
-