2 ! { dg-options "-std=legacy" }
4 ! check to see that you cannot open a direct access file
6 ! derived from NIST test fm910.for
9 OPEN(UNIT=7, ACCESS='DIRECT',RECL=132,STATUS='SCRATCH')
10 INQUIRE(UNIT=7,SEQUENTIAL=D4VK)
11 CLOSE(UNIT=7,STATUS='DELETE')
12 IF (D4VK.NE.'NO') CALL ABORT