Commit 94de2522 by Tobias Burnus Committed by Tobias Burnus

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
parent ed44a2c7
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> 2008-01-24 Richard Guenther <rguenther@suse.de>
PR middle-end/34953 PR middle-end/34953
...@@ -17,7 +17,7 @@ write(99,'(4(a,/),a)') "&NAM", & ...@@ -17,7 +17,7 @@ write(99,'(4(a,/),a)') "&NAM", &
" /" " /"
rewind(99) rewind(99)
read(99,nml=nam) read(99,nml=nam)
close(99) close(99,status="delete")
if (b01234567890123456789012345678901234567890123456789012345678901(1).ne.& if (b01234567890123456789012345678901234567890123456789012345678901(1).ne.&
" AAP NOOT MIES WIM ZUS JET ") call abort " AAP NOOT MIES WIM ZUS JET ") call abort
......
...@@ -23,7 +23,7 @@ program gfcbug77 ...@@ -23,7 +23,7 @@ program gfcbug77
write(nnml,*) "/" write(nnml,*) "/"
rewind(nnml) rewind(nnml)
read (nnml, nml=BLACKLIST) read (nnml, nml=BLACKLIST)
close(nnml) close(nnml,status="delete")
if(file /= "myfile" .or. default) call abort() if(file /= "myfile" .or. default) call abort()
! write (*,nml=BLACKLIST) ! write (*,nml=BLACKLIST)
end program gfcbug77 end program gfcbug77
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment