diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-08-24 01:10:55 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-08-24 01:10:55 +0000 |
| commit | 664ee581a846a244e26c4e62b3770eae46c965ed (patch) | |
| tree | 7e18dcc6a418b5d8855eed92861c238125fe2340 /gcc | |
| parent | 86de7c28e7e14a1a2b21d488882184be6ba9c762 (diff) | |
| download | gcc-664ee581a846a244e26c4e62b3770eae46c965ed.zip gcc-664ee581a846a244e26c4e62b3770eae46c965ed.tar.gz gcc-664ee581a846a244e26c4e62b3770eae46c965ed.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/direct_io_6.f90 | 28 |
2 files changed, 5 insertions, 28 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 45cf402..3dfdc23 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 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 - |