PR c++/9335

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / direct_io_2.f90

diff --git a/gcc/testsuite/gfortran.dg/direct_io_2.f90 b/gcc/testsuite/gfortran.dg/direct_io_2.f90
index 847ce29..8e18052 100644 (file)
--- a/gcc/testsuite/gfortran.dg/direct_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_2.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-std=legacy" }
 !
 ! this testcase derived from NIST test FM413.FOR
 ! tests writing direct access files in ascending and descending
@@ -6,7 +7,9 @@
       PROGRAM FM413
       IMPLICIT LOGICAL (L)
       IMPLICIT CHARACTER*14 (C)
-      OPEN (7, ACCESS = 'DIRECT', RECL = 80, STATUS='REPLACE' )
+      IMPLICIT INTEGER(4) (I)
+      DATA IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56 /14*0/
+      OPEN (7, ACCESS = 'DIRECT', RECL = 80, STATUS='REPLACE', FILE="FOO" )
       IRECN = 13
       IREC = 13
       DO 4132 I = 1,100
@@ -40,5 +43,6 @@
       READ(7, REC = IREC)  IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56
       IF (IRECN .NE. IRECCK) CALL ABORT
  4135 CONTINUE
+      CLOSE(7, STATUS='DELETE')
       STOP
       END