1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! check to see that you cannot open a direct access file
5! for sequential i/o.
6! derived from NIST test fm910.for
7        IMPLICIT NONE
8        CHARACTER*10 D4VK
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') STOP 1
13        END
14