From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 10 Nov 2010 04:36:45 +0000 (+0000)
Subject: open_dev_null.f90: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0f292566eb5211a5b2c603b7a5867279d60a40e1;p=gcc.git

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e4cb4365347..52e7693e447 100644
--- 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
index 00000000000..00394cb55a6
--- /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