procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

stat_1.f90: Make test pass when run under sudo.

Browse source 
* gfortran.dg/stat_1.f90: Make test pass when run under sudo.
	* gfortran.dg/stat_2.f90: Likewise.
	* gfortran.dg/chmod_1.f90: Likewise.
	* gfortran.dg/chmod_2.f90: Likewise.
	* gfortran.dg/chmod_3.f90: Likewise.

From-SVN: r116097
This commit is contained in:
Francois-Xavier Coudert 2006-08-12 03:03:29 +02:00 • committed by François-Xavier Coudert
parent 57868b141b
commit a30701cf3e
6 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,11 @@
2006-08-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.dg/stat_1.f90: Make test pass when run under sudo.
* gfortran.dg/stat_2.f90: Likewise.
* gfortran.dg/chmod_1.f90: Likewise.
* gfortran.dg/chmod_2.f90: Likewise.
* gfortran.dg/chmod_3.f90: Likewise.
2006-08-11 David Edelsohn <edelsohn@gnu.org>
* gfortran.dg/direct_io_6.f90: Skip on *-*-aix*.

2
gcc/testsuite/gfortran.dg/chmod_1.f90
View file

@ -20,7 +20,7 @@
end if
call chmod (n, "a-w", i)
if (i == 0) then
if (i == 0 .and. getuid() /= 0) then
if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort
end if

2
gcc/testsuite/gfortran.dg/chmod_2.f90
View file

@ -20,7 +20,7 @@
end if
i = chmod (n, "a-w")
if (i == 0) then
if (i == 0 .and. getuid() /= 0) then
if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort
end if

2
gcc/testsuite/gfortran.dg/chmod_3.f90
View file

@ -20,7 +20,7 @@
end if
i = chmod (n, "a-w")
if (i == 0) then
if (i == 0 .and. getuid() /= 0) then
if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort
end if

2
gcc/testsuite/gfortran.dg/stat_1.f90
View file

@ -15,7 +15,7 @@
if (r1 /= 0 .or. r2 /= 0 .or. r3 /= 0) call abort
if (any (s1 /= s2) .or. any (s1 /= s3)) call abort
if (s1(5) /= getuid()) call abort
if (s1(6) /= getgid()) call abort
if (s1(6) /= getgid() .and. getgid() /= 0) call abort
if (s1(8) < 3 .or. s1(8) > 5) call abort
close (10,status="delete")

2
gcc/testsuite/gfortran.dg/stat_2.f90
View file

@ -15,7 +15,7 @@
if (r1 /= 0 .or. r2 /= 0 .or. r3 /= 0) call abort
if (any (s1 /= s2) .or. any (s1 /= s3)) call abort
if (s1(5) /= getuid()) call abort
if (s1(6) /= getgid()) call abort
if (s1(6) /= getgid() .and. getgid() /= 0) call abort
if (s1(8) < 3 .or. s1(8) > 5) call abort
close (10,status="delete")