mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 20:45:41 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

From-SVN: r124059
This commit is contained in:
Kaveh R. Ghazi 2007-04-23 07:52:24 +00:00 committed by Kaveh Ghazi
parent 6c1e7e268e
commit 11bac67c45
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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):

2
gcc/testsuite/gfortran.dg/open_errors.f90
View File

@ -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")