From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 16 Dec 2006 05:27:31 +0000 (+0000)
Subject: 2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=76fdb388b3695ec2c9a484a372ddd246d985cc1d;p=thirdparty%2Fgcc.git

2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/30005
	* gfortran.dg/open_errors.f90: New test.


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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a9d0d9b6e7b7..486bf17bd928 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/30005
+	* gfortran.dg/open_errors.f90: New test.
+
 2006-12-15  H.J. Lu  <hongjiu.lu@intel.com>
 
 	* gcc.dg/i386-cpuid.h (bit_SSSE3): New.
diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90
new file mode 100644
index 000000000000..009da073b4df
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/open_errors.f90
@@ -0,0 +1,31 @@
+! { dg-do run }
+! PR30005 Enhanced error messages for OPEN
+! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+character(60) :: msg
+character(25) :: n = "temptestfile"
+open(77,file=n,status="new")
+close(77, status="keep")
+msg=""
+open(77,file=n,status="new", iomsg=msg, iostat=i)
+if (msg /= "File 'temptestfile' already exists") call abort()
+
+open(77,file=n,status="old")
+close(77, status="delete")
+open(77,file=n,status="old", iomsg=msg, iostat=i)
+if (msg /= "File 'temptestfile' does not exist") call abort()
+
+open(77,file="./", iomsg=msg, iostat=i)
+if (msg /= "'./' is a directory") call abort()
+
+open(77,file=n,status="new")
+i = chmod(n, "-w")
+if (i == 0) then
+ close(77, status="keep")
+ open(77,file=n, iomsg=msg, iostat=i, action="write")
+ if (msg /= "Permission denied trying to open file 'temptestfile'") call abort()
+endif
+
+i = chmod(n,"+w")
+open(77,file=n, iomsg=msg, iostat=i, action="read")
+close(77, status="delete")
+end