[svn] 2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> trunk svn.166518
authorjvdelisle
Wed Nov 10 04:36:45 2010 +0000 (18 months ago)
branchtrunk
changeset 104487e91bd43b8891
parent 1044865f9c308243bd
child 1044881af2ecc2b007
[svn] 2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>

* gfortran.dg/open_dev_null.f90: New test.
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/open_dev_null.f90
     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