diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2007-04-23 07:52:24 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2007-04-23 07:52:24 +0000 |
| commit | 11bac67c45e7f6df5762c837dd3b871d3b7e1b39 (patch) | |
| tree | 349333f1c1a42689cc92b328d3d106e411035c79 | |
| parent | 6c1e7e268e99eb3055c1be3ee97ab99006daec1f (diff) | |
| download | gcc-11bac67c45e7f6df5762c837dd3b871d3b7e1b39.zip gcc-11bac67c45e7f6df5762c837dd3b871d3b7e1b39.tar.gz gcc-11bac67c45e7f6df5762c837dd3b871d3b7e1b39.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_errors.f90 | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0675922..5561dfd 100644 --- 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 009da07..8e719d1 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") |