From bcaaa78047de58bf661377588d48469be39c3aeb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 3 Aug 2007 02:20:33 +0000 Subject: [PATCH] opem_errors.f90: Revise test to pass when run under sudo. 2007-08-02 Jerry DeLisle * gfortran.dg/opem_errors.f90: Revise test to pass when run under sudo. From-SVN: r127176 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/open_errors.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fe19024a0103..7f6a9b7ff6a9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-08-02 Jerry DeLisle + + * gfortran.dg/opem_errors.f90: Revise test to pass when run under sudo. + 2007-08-02 Thomas Koenig PR fortran/32770 diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index 1f5c1c08d5bc..a8d5c2b10d79 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()