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

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

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90
index 492f74476d3898c6454131dbb4255a24fc720f67..8deb6b863b5dbdb5ef45f573d1ce211b71fddd1f 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90
@@ -5,4 +5,5 @@
        INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)
        IF(BLANK.NE.'NULL') CALL ABORT
        IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT
+       CLOSE(UNIT=9,STATUS='DELETE')
        END