1! demonstrates basic direct access using variables for REC
2! pr14872
3       OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
4       DO I = 1,10
5          WRITE(10,REC=I,ERR=10)I
6       ENDDO
7       CLOSE(10)
8       OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
9       DO I = 1,10
10          READ(10,REC=I,ERR=10)J
11          IF (J.NE.I) THEN
12!           PRINT*,' READ ',J,' EXPECTED ',I
13            CALL ABORT
14          ENDIF
15       ENDDO
16       CLOSE(10,STATUS='DELETE')
17       STOP
18 10    CONTINUE
19!      PRINT*,' ERR= RETURN FROM READ OR WRITE'
20       CALL ABORT
21       END
22