diff options
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 - |