From 4b27e132f1d20f084ec35439c5bee9345da5a883 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Sun, 14 Apr 2002 13:46:24 +0000 Subject: [PATCH] f77-edit-i-in.f: Use internal buffer in place of scratch file. 2002-04-12 David Billinghurst * g77.dg/f77-edit-i-in.f: Use internal buffer in place of scratch file. From-SVN: r52294 --- gcc/testsuite/ChangeLog | 5 +++++ 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 + + * g77.dg/f77-edit-i-in.f: Use internal buffer in place + of scratch file. + 2002-04-13 David Billinghurst 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 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 -- 2.30.2