From: Craig Burley <craig@jcb-sc.com>
Date: Sat, 1 May 1999 22:34:44 +0000 (+0000)
Subject: do warn, do not crash, on FSTAT gid disagreements
X-Git-Tag: prereleases/gcc-2.95-test~681
X-Git-Url: https://gcc.gnu.org/git/?a=commitdiff_plain;h=f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f;p=gcc.git

do warn, do not crash, on FSTAT gid disagreements

From-SVN: r26719
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b71d2ba8b9a9..40badc4f5582 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sun May  2 00:06:45 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* g77.f-torture/execute/u77-test.f (main): Just warn about
+	FSTAT gid disagreement, as it's expected on some systems.
+
 Sat May  1 23:57:18 1999  Craig Burley  <craig@jcb-sc.com>
 
 	* g77.f-torture/execute/u77-test.f: Generalize sum-checking to
diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f
index 535d04ecce8a..49311dc7f85f 100644
--- a/gcc/testsuite/g77.f-torture/execute/u77-test.f
+++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f
@@ -226,9 +226,11 @@ C     the better to test with, my dear!  (-- burley)
         call doabort
       end if
       write (6,*) '  with stat array ', statb
-      if (statb(5).ne.getuid () .or. statb(6).ne.getgid() .or. statb(4)
-     +     .ne. 1) then
-        write (6,*) '*** FSTAT uid, gid or nlink is wrong'
+      if (statb(6) .ne. getgid ()) then
+        write (6,*) 'Note: FSTAT gid wrong (happens on some systems).'
+      end if
+      if (statb(5) .ne. getuid () .or. statb(4) .ne. 1) then
+        write (6,*) '*** FSTAT uid or nlink is wrong'
         call doabort
       end if
       do i=1,13
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 180ba1485a16..d486ad2cfb1f 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Sun May  2 00:06:45 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* libU77/u77-test.f (main): Just warn about FSTAT gid
+	disagreement, as it's expected on some systems.
+
 Sat May  1 23:57:18 1999  Craig Burley  <craig@jcb-sc.com>
 
 	* libU77/u77-test.f: Generalize sum-checking to
diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f
index 50ae41d6b7e1..603e3cc6dc98 100644
--- a/libf2c/libU77/u77-test.f
+++ b/libf2c/libU77/u77-test.f
@@ -229,9 +229,11 @@ C     the better to test with, my dear!  (-- burley)
         call doabort
       end if
       write (6,*) '  with stat array ', statb
-      if (statb(5).ne.getuid () .or. statb(6).ne.getgid() .or. statb(4)
-     +     .ne. 1) then
-        write (6,*) '*** FSTAT uid, gid or nlink is wrong'
+      if (statb(6) .ne. getgid ()) then
+        write (6,*) 'Note: FSTAT gid wrong (happens on some systems).'
+      end if
+      if (statb(5) .ne. getuid () .or. statb(4) .ne. 1) then
+        write (6,*) '*** FSTAT uid or nlink is wrong'
         call doabort
       end if
       do i=1,13