procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

open_dev_null.f90: New test.

Browse source 
2010-11-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/open_dev_null.f90: New test.

From-SVN: r166518
This commit is contained in:
Jerry DeLisle 2010-11-10 04:36:45 +00:00
parent 9bb2f479f3
commit 0f292566eb
2 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/open_dev_null.f90: New test.
2010-11-09 Jan Hubicka <jh@suse.cz>
* testsuite/gcc.target/i386/recip-vec-sqrtf-avx.c: Update for loop unrolling.

9
gcc/testsuite/gfortran.dg/open_dev_null.f90 Normal file
View file

@ -0,0 +1,9 @@
! { dg-do run }
! PR45723 opening /dev/null for appending writes fails
logical :: thefile
inquire(file="/dev/null",exist=thefile)
if (thefile) then
open(unit=7,file="/dev/null",position="append")
close(7)
endif
end