1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90
new file mode 100644
index 000000000..d6f1e4305
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/open_errors.f90
@@ -0,0 +1,39 @@
+! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } }
+! PR30005 Enhanced error messages for OPEN
+! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+! See PR38956.  Test fails on cygwin when user has Administrator rights
+character(60) :: msg
+character(25) :: n = "temptestfile"
+logical :: there
+inquire(file=n, exist=there)
+if (.not.there) then
+  open(77,file=n,status="new")
+  close(77, status="keep")
+endif
+msg=""
+open(77,file=n,status="new", iomsg=msg, iostat=i)
+if (i == 0) call abort()
+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 (i == 0) call abort()
+if (msg /= "File 'temptestfile' does not exist") call abort()
+
+open(77,file="./", iomsg=msg, iostat=i)
+if (msg /= "'./' is a directory" .and. msg /= "Invalid argument") call abort()
+
+open(77,file=n,status="new")
+i = chmod(n, "-w")
+if (i == 0 .and. getuid() /= 0) then
+ close(77, status="keep")
+ open(77,file=n, iomsg=msg, iostat=i, action="write")
+ if (i == 0) call abort()
+ 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