From 2fd5cd029201b2efff07f6cc5b48d80e7e366351 Mon Sep 17 00:00:00 2001 From: ghazi Date: Mon, 23 Apr 2007 07:52:24 +0000 Subject: [PATCH] PR fortran/31616 * gfortran.dg/open_errors.f90: Allow a different error message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124059 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/open_errors.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0675922d590..5561dfd7bf5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-04-23 Kaveh R. Ghazi + + PR fortran/31616 + * gfortran.dg/open_errors.f90: Allow a different error message. + 2007-04-23 Uros Bizjak * 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 009da073b4d..8e719d19ea1 100644 --- 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") -- 2.11.0