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

	* 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

gcc/testsuite/ChangeLog

+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*.

gcc/testsuite/gfortran.dg/chmod_1.f90

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

gcc/testsuite/gfortran.dg/chmod_2.f90

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

gcc/testsuite/gfortran.dg/chmod_3.f90

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

gcc/testsuite/gfortran.dg/stat_1.f90

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

gcc/testsuite/gfortran.dg/stat_2.f90

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