f77-edit-i-in.f   [plain text]

C Test Fortran 77 I edit descriptor for input
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

      open(unit=10,status='SCRATCH')
      write(10,'(A)') '1'
      write(10,'(A)') ' '
      write(10,'(A)') '   -1'

      rewind(10)

      read(10,'(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
      if ( i.ne.0 ) call abort()
      if ( j.ne.-1 ) call abort()

      end