1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire.f90 b/gcc/testsuite/gfortran.dg/inquire.f90
new file mode 100644
index 000000000..7115913c6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/inquire.f90
@@ -0,0 +1,13 @@
+! { 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') CALL ABORT
+        END