OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

namelist_39.f90: Delete temporary files.

Browse Source 
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
This commit is contained in:
Tobias Burnus 2008-01-24 17:59:02 +01:00 committed by Tobias Burnus
parent ed44a2c764
commit 94de25225d
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

2
gcc/testsuite/gfortran.dg/namelist_39.f90
View File

@ -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

2
gcc/testsuite/gfortran.dg/namelist_44.f90
View File

@ -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