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