diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-24 17:59:02 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-24 17:59:02 +0100 |
| commit | 94de25225dcfcb12f44414885e32de5bfcba91e2 (patch) | |
| tree | f98a8ae2d35b6ea80c8b2ea38517634f877b2097 | |
| parent | ed44a2c764ef0a11567d776ab644a2e8f0079b19 (diff) | |
| download | gcc-94de25225dcfcb12f44414885e32de5bfcba91e2.zip gcc-94de25225dcfcb12f44414885e32de5bfcba91e2.tar.gz gcc-94de25225dcfcb12f44414885e32de5bfcba91e2.tar.bz2 | |
namelist_39.f90: Delete temporary files.
2008-01-24 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/namelist_39.f90: Delete temporary files.
* gfortran.dg/namelist_44.f90: Ditto.
From-SVN: r131795
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_39.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_44.f90 | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4202bf3..933bcae 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-24 Tobias Burnus <burnus@net-b.de> + + * gfortran.dg/namelist_39.f90: Delete temporary files. + * gfortran.dg/namelist_44.f90: Ditto. + 2008-01-24 Richard Guenther <rguenther@suse.de> PR middle-end/34953 diff --git a/gcc/testsuite/gfortran.dg/namelist_39.f90 b/gcc/testsuite/gfortran.dg/namelist_39.f90 index f90198a..3672140 100644 --- a/gcc/testsuite/gfortran.dg/namelist_39.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_39.f90 @@ -17,7 +17,7 @@ write(99,'(4(a,/),a)') "&NAM", & " /" rewind(99) read(99,nml=nam) -close(99) +close(99,status="delete") if (b01234567890123456789012345678901234567890123456789012345678901(1).ne.& " AAP NOOT MIES WIM ZUS JET ") call abort diff --git a/gcc/testsuite/gfortran.dg/namelist_44.f90 b/gcc/testsuite/gfortran.dg/namelist_44.f90 index 5922d43..1439902 100644 --- a/gcc/testsuite/gfortran.dg/namelist_44.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_44.f90 @@ -23,7 +23,7 @@ program gfcbug77 write(nnml,*) "/" rewind(nnml) read (nnml, nml=BLACKLIST) - close(nnml) + close(nnml,status="delete") if(file /= "myfile" .or. default) call abort() ! write (*,nml=BLACKLIST) end program gfcbug77 |