diff options
| author | billingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-04-14 13:46:24 +0000 |
|---|---|---|
| committer | billingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-04-14 13:46:24 +0000 |
| commit | 4ea9d8d039d78cda44f7fd5994e8d5c640ef55cf (patch) | |
| tree | 1de7beb7e993ede9e3b692314b0e29ecb0694cd2 | |
| parent | 339201154c5f4addc01da3dd8f6ac752ce89475c (diff) | |
| download | ppe42-gcc-4ea9d8d039d78cda44f7fd5994e8d5c640ef55cf.tar.gz ppe42-gcc-4ea9d8d039d78cda44f7fd5994e8d5c640ef55cf.zip | |
2002-04-12 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.dg/f77-edit-i-in.f: Use internal buffer in place
of scratch file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@52294 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/f77-edit-i-in.f | 21 |
2 files changed, 13 insertions, 13 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f5a4d127039..a6a46bc5682 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-04-14 David Billinghurst <David.Billinghurst@riotinto.com> + + * g77.dg/f77-edit-i-in.f: Use internal buffer in place + of scratch file. + 2002-04-13 David Billinghurst <David.Billinghurst@riotinto.com> PR c/6277 diff --git a/gcc/testsuite/g77.dg/f77-edit-i-in.f b/gcc/testsuite/g77.dg/f77-edit-i-in.f index e4c68344301..c08ceaf26f9 100644 --- a/gcc/testsuite/g77.dg/f77-edit-i-in.f +++ b/gcc/testsuite/g77.dg/f77-edit-i-in.f @@ -3,23 +3,18 @@ C (ANSI X3.9-1978 Section 13.5.9.1) C C Origin: David Billinghurst <David.Billinghurst@riotinto.com> C -C Scratch files aren't implemented for mmixware: stubs will fail at run time. -C { dg-do run { xfail mmix-knuth-mmixware } } integer i,j + character*10 buf - open(unit=10,status='SCRATCH') - write(10,'(A)') '1' - write(10,'(A)') ' ' - write(10,'(A)') ' -1' + write(buf,'(A)') '1 -1' - rewind(10) - - read(10,'(I1)') i + read(buf,'(I1)') i if ( i.ne.1 ) call abort() - read(10,'(I1)') i - if ( i.ne.0 ) call abort() - read(10,'(I2,X,I2)') i,j + + read(buf,'(X,I1)') i if ( i.ne.0 ) call abort() - if ( j.ne.-1 ) call abort() + + read(buf,'(X,I1,X,I2)') i,j + if ( i.ne.0 .and. j.ne.-1 ) call abort() end |
