advance.f90, [...]: Delete temp file.

[gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / inquire_3.f90

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90
index 8967dcfbc0fc9182a64fdccfadbc638dedfd4945..29d25812ab2ddd185fe26c54e398f3bb3df180f1 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90
@@ -9,5 +9,6 @@
        INQUIRE(UNIT=9,NEXTREC=NREC)
        IF (NREC.NE.2) CALL ABORT
 !      PRINT*,NREC
+       CLOSE(UNIT=9,STATUS='DELETE')
        END