open_dev_null.f90: New test.

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

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

From-SVN: r166518

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/open_dev_null.f90

+! { 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