PROGRAM kysely
  IMPLICIT NONE
  LOGICAL :: olemassa
  INTEGER :: n
  REAL :: x
  CHARACTER(LEN=12) :: saanti, muoto
  
  INQUIRE (FILE='data.bin', EXIST=olemassa)
  IF (.NOT. olemassa) &
      STOP 'Tiedostoa data.bin ei ole olemassa!'
  OPEN(UNIT=10, FILE='data.bin', ACCESS='DIRECT', RECL=4)
  READ(10, REC=3) x
  INQUIRE (UNIT=10, ACCESS=saanti, FORM=muoto, NEXTREC=n)
  WRITE (*,*) saanti, muoto, n, x
END PROGRAM kysely