2 ! check to see that you cannot open a direct access file
4 ! derived from NIST test fm910.for
7 OPEN(UNIT=7, ACCESS='DIRECT',RECL=132,STATUS='SCRATCH')
8 INQUIRE(UNIT=7,SEQUENTIAL=D4VK)
9 CLOSE(UNIT=7,STATUS='DELETE')
10 IF (D4VK.NE.'NO') CALL ABORT