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