gcc/testsuite/g77.dg/f77-edit-i-in.f

   1 C Test Fortran 77 I edit descriptor for input
   2 C      (ANSI X3.9-1978 Section 13.5.9.1)
   3 C
   4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   5 C
   6 C { dg-do run }
   7
   8       integer i,j
   9       character*10 buf
  10
  11       write(buf,'(A)') '1  -1'
  12
  13       read(buf,'(I1)') i
  14       if ( i.ne.1 ) call abort()
  15
  16       read(buf,'(X,I1)') i
  17       if ( i.ne.0 ) call abort()
  18
  19       read(buf,'(X,I1,X,I2)') i,j
  20       if ( i.ne.0 .and. j.ne.-1 ) call abort()
  21
  22       end