From 38545c2563edfb19a673db8006673d7944125ba9 Mon Sep 17 00:00:00 2001 From: burnus Date: Thu, 24 Jan 2008 16:59:02 +0000 Subject: [PATCH] 2008-01-24 Tobias Burnus * gfortran.dg/namelist_39.f90: Delete temporary files. * gfortran.dg/namelist_44.f90: Ditto. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131795 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/namelist_39.f90 | 2 +- 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 + + * gfortran.dg/namelist_39.f90: Delete temporary files. + * gfortran.dg/namelist_44.f90: Ditto. + 2008-01-24 Richard Guenther 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 -- 2.7.4