diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-08-24 01:10:55 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-08-24 01:10:55 +0000 |
| commit | 3ea6df5d1d5c4b26bb50689a32a75c14dfb06d99 (patch) | |
| tree | 7e18dcc6a418b5d8855eed92861c238125fe2340 | |
| parent | fdde7c0300f43735026bb6653541387dd07039bc (diff) | |
2006-08-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR 28813
* gfortran.dg/direct_io_6.f90: Remove test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116368 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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 - |