diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-04-14 13:46:24 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2002-04-14 13:46:24 +0000 |
| commit | 4b27e132f1d20f084ec35439c5bee9345da5a883 (patch) | |
| tree | 1de7beb7e993ede9e3b692314b0e29ecb0694cd2 /gcc | |
| parent | 85b7def6e0f1ca6f4e2af553ab9853b7dad3bf55 (diff) | |
| download | gcc-4b27e132f1d20f084ec35439c5bee9345da5a883.zip gcc-4b27e132f1d20f084ec35439c5bee9345da5a883.tar.gz gcc-4b27e132f1d20f084ec35439c5bee9345da5a883.tar.bz2 | |
f77-edit-i-in.f: Use internal buffer in place of scratch file.
2002-04-12 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.dg/f77-edit-i-in.f: Use internal buffer in place
of scratch file.
From-SVN: r52294
Diffstat (limited to 'gcc')
| -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 f5a4d12..a6a46bc 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 e4c6834..c08ceaf 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 |