1.1 --- a/gcc/testsuite/ChangeLog Wed Nov 10 02:35:19 2010 +0000
1.2 +++ b/gcc/testsuite/ChangeLog Wed Nov 10 04:36:45 2010 +0000
1.3 @@ -1,3 +1,7 @@
1.4 +2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1.5 +
1.6 + * gfortran.dg/open_dev_null.f90: New test.
1.7 +
1.8 2010-11-09 Jan Hubicka <jh@suse.cz>
1.9
1.10 * testsuite/gcc.target/i386/recip-vec-sqrtf-avx.c: Update for loop unrolling.
2.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
2.2 +++ b/gcc/testsuite/gfortran.dg/open_dev_null.f90 Wed Nov 10 04:36:45 2010 +0000
2.3 @@ -0,0 +1,9 @@
2.4 +! { dg-do run }
2.5 +! PR45723 opening /dev/null for appending writes fails
2.6 +logical :: thefile
2.7 +inquire(file="/dev/null",exist=thefile)
2.8 +if (thefile) then
2.9 + open(unit=7,file="/dev/null",position="append")
2.10 + close(7)
2.11 +endif
2.12 +end