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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166518 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e4cb436..52e7693 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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.

diff --git a/gcc/testsuite/gfortran.dg/open_dev_null.f90 b/gcc/testsuite/gfortran.dg/open_dev_null.f90
new file mode 100644 (file)
index 0000000..00394cb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/open_dev_null.f90
@@ -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