PROGRAM io
  IMPLICIT NONE
  INTEGER :: avaus, luku
  INTEGER, PARAMETER :: kanava = 10
  CHARACTER(LEN=*), PARAMETER :: tiedosto = 'data.txt'
  REAL :: x

  OPEN(kanava, FILE=tiedosto, STATUS='old',&
      IOSTAT=avaus)
  IF (avaus /= 0) THEN
     WRITE (*,*) 'Virhe tiedoston ', tiedosto,&
         ' avaamisessa, virhekoodi:', avaus
     STOP
  END IF

  DO
    READ (kanava, *, IOSTAT=luku) x
    IF (luku < 0) THEN
       WRITE (*,*) 'Tiedoston loppu, ohjelman suoritus &
            &jatkuu:', luku
       EXIT
    ELSE IF (luku > 0) then
       WRITE (*,*) 'Virhe lukemisessa, virhekoodi:', luku
       STOP
    ELSE
       WRITE (*,*) 'Luettu arvo:', x
    END IF
  END DO

  WRITE (*,*) 'Lopullinen arvo:', x
  STOP
END PROGRAM io