C Illustrates a problem with line-oriented I/O

      PROGRAM FMT1
      
      IMPLICIT NONE
      INTEGER A(5), I

      PRINT *, 'Please enter five two-digit integers, separated'
      PRINT *, 'by a single space, all on the same line'

      DO I = 1, 5
         READ (UNIT=*, FMT=100) A(I)
      ENDDO

      PRINT *, 'I will now print the numbers 1-5 all on the same'
      PRINT *, 'line, separated by two spaces'

      DO I = 1, 5
         WRITE (UNIT=*, FMT=100) I
      ENDDO

 100  FORMAT (5I3)

      STOP
      END