diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 index 1d8ac4ba787..11d0d09461a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 @@ -2,4 +2,5 @@ ! open with 'REPLACE' creates the file if it does not exist. PROGRAM iobug OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE') + CLOSE(10,status='DELETE') END PROGRAM iobug |
