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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 002761d20d176332dc7955f7ec64d0d2637efb58..d7cb8c8788653cc4a372666143f51afbb740ab6d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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*.

diff --git a/gcc/testsuite/gfortran.dg/chmod_1.f90 b/gcc/testsuite/gfortran.dg/chmod_1.f90
index e9ea27f1b1dc6c30423f0d59d4115b24c088d931..2f0af8cc2db9323d24cce9e127d8d891bd7a05df 100644 (file)
--- a/gcc/testsuite/gfortran.dg/chmod_1.f90
+++ b/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
 

diff --git a/gcc/testsuite/gfortran.dg/chmod_2.f90 b/gcc/testsuite/gfortran.dg/chmod_2.f90
index e413fcad8f3c7e76c1c131275081344593172f60..3dc445e1cb7b383d2498187021073f6889bae851 100644 (file)
--- a/gcc/testsuite/gfortran.dg/chmod_2.f90
+++ b/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
 

diff --git a/gcc/testsuite/gfortran.dg/chmod_3.f90 b/gcc/testsuite/gfortran.dg/chmod_3.f90
index 4ea34eb8cf46fc2a5ec76c5561a9021a10ee8bc8..cfeba67dd4213aa042d49e9a02ba8c5586ab0f0a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/chmod_3.f90
+++ b/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
 

diff --git a/gcc/testsuite/gfortran.dg/stat_1.f90 b/gcc/testsuite/gfortran.dg/stat_1.f90
index c8e388154006026e059fa004f88f81ea0cdd3cee..5325634246f185bb2e355b82936cf32c463a32d1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stat_1.f90
+++ b/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")

diff --git a/gcc/testsuite/gfortran.dg/stat_2.f90 b/gcc/testsuite/gfortran.dg/stat_2.f90
index 7ebd057239f2d5c411b26b7c310c96db715600bd..4bd17cabf0dfcd1854f9d166d90da62d6d3be456 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stat_2.f90
+++ b/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")