re PR fortran/31616 (testsuite failures in gfortran.dg/open_errors.f90)

	PR fortran/31616
	* gfortran.dg/open_errors.f90: Allow a different error message.

From-SVN: r124059

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0675922d590cff81b62a6701cc6ba28a2af9e6d0..5561dfd7bf5381eb09aa7d87ed1e6fb1d48a970c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-23  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       PR fortran/31616
+       * gfortran.dg/open_errors.f90: Allow a different error message.
+
 2007-04-23  Uros Bizjak  <ubizjak@gmail.com>
 
        * lib/target-supports.exp (check_effective_target_vect_pack_trunc):

diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90
index 009da073b4dfeeeaebc3825d65bb6a6eceab8817..8e719d19ea1756a191f8c05a47a8eb4c6ab8ecfe 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open_errors.f90
+++ b/gcc/testsuite/gfortran.dg/open_errors.f90
@@ -15,7 +15,7 @@ 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()
+if (msg /= "'./' is a directory" .and. msg /= "Invalid argument") call abort()
 
 open(77,file=n,status="new")
 i = chmod(n, "-w")