| ! { dg-do run } | |
| ! { dg-options "-std=legacy" } | |
| ! | |
| ! check to see that you cannot open a direct access file | |
| ! for sequential i/o. | |
| ! derived from NIST test fm910.for | |
| IMPLICIT NONE | |
| CHARACTER*10 D4VK | |
| OPEN(UNIT=7, ACCESS='DIRECT',RECL=132,STATUS='SCRATCH') | |
| INQUIRE(UNIT=7,SEQUENTIAL=D4VK) | |
| CLOSE(UNIT=7,STATUS='DELETE') | |
| IF (D4VK.NE.'NO') STOP 1 | |
| END |