diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-08-03 02:20:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-08-03 02:20:33 +0000 |
| commit | bcaaa78047de58bf661377588d48469be39c3aeb (patch) | |
| tree | ff376f7425bdca25463338d2ebca59d8ab3540ef | |
| parent | fea4e7a1e92f1c7bbbfd3fccb3d49865c65264f1 (diff) | |
| download | gcc-bcaaa78047de58bf661377588d48469be39c3aeb.zip gcc-bcaaa78047de58bf661377588d48469be39c3aeb.tar.gz gcc-bcaaa78047de58bf661377588d48469be39c3aeb.tar.bz2 | |
opem_errors.f90: Revise test to pass when run under sudo.
2007-08-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/opem_errors.f90: Revise test to pass when run under sudo.
From-SVN: r127176
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_errors.f90 | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fe19024..7f6a9b7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-08-02 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/opem_errors.f90: Revise test to pass when run under sudo. + 2007-08-02 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/32770 diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index 1f5c1c0..a8d5c2b 100644 --- a/gcc/testsuite/gfortran.dg/open_errors.f90 +++ b/gcc/testsuite/gfortran.dg/open_errors.f90 @@ -25,7 +25,7 @@ if (msg /= "'./' is a directory" .and. msg /= "Invalid argument") call abort() open(77,file=n,status="new") i = chmod(n, "-w") -if (i == 0) then +if (i == 0 .and. getuid() /= 0) then close(77, status="keep") open(77,file=n, iomsg=msg, iostat=i, action="write") if (i == 0) call abort() |