c
c
c  THIS PROGRAM TESTS FOR SUPPORT OF 1024 BYTE RECORD UNFORMATTED
C  I/O.
C
      INTEGER BUFFER(256)
      OPEN(UNIT=1,FORM='UNFORMATTED',ACCESS='DIRECT',STATUS='NEW',
     .     FILE='DIRECTIO',
     .     RECL=1024)
      DO 1 I = 1,256
      BUFFER(I) = 0
1     CONTINUE
      DO 2 I = 1, 100
      BUFFER(I) = I
      WRITE(1,REC=I) BUFFER
2     CONTINUE
      DO 3 I = 1, 100
      J = 100+1 -I
      READ(1,REC=J) BUFFER
      IF (BUFFER(J) .NE. J) THEN
      PRINT *, ' ERROR ON READ. J=',J,' BUFFER(J)= ',BUFFER(J)
      ENDIF
3     CONTINUE
      CLOSE(1)
      STOP ' THE END.'
      END