open_errors.f90: Added if statements checking the value of iostat.

2007-04-26  Wolfgang Gellerich  <gellerich@de.ibm.com>

	* gfortran.dg/open_errors.f90: Added if statements checking
	the value of iostat.

From-SVN: r124182

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4667c9da9b78c04933c8ba8bebcc1b5c5d456279..4310a1cf9d36d772fa7e8d0c27fd4dd0a76a9767 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-26  Wolfgang Gellerich  <gellerich@de.ibm.com>
+
+       * gfortran.dg/open_errors.f90: Added if statements checking
+       the value of iostat.
+
 2007-04-26  Jakub Jelinek  <jakub@redhat.com>
 
        PR c++/31598

diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90
index 8e719d19ea1756a191f8c05a47a8eb4c6ab8ecfe..ff55d3a59daf7d7a923878e4d53f6f6ad3f01226 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open_errors.f90
+++ b/gcc/testsuite/gfortran.dg/open_errors.f90
@@ -7,11 +7,13 @@ open(77,file=n,status="new")
 close(77, status="keep")
 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)
@@ -22,6 +24,7 @@ i = chmod(n, "-w")
 if (i == 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