do warn, do not crash, on FSTAT gid disagreements

From-SVN: r26719

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b71d2ba8b9a943c0bc413dbe6ee7d4827c06b504..40badc4f5582cd69660e39b3e1b5f6d46e419a5f 100644 (file)
--- 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 535d04ecce8ac12002ec9c128a67cfef9c5e4161..49311dc7f85f99e1dcdb75026bbe5d313a3928f2 100644 (file)
--- 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 180ba1485a164bdfd1ffaf6530000992ae065ff6..d486ad2cfb1fe3f974fc5612de5271dbbf560ecc 100644 (file)
--- 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 50ae41d6b7e10f0077cc6b1cc31f5eea12398830..603e3cc6dc982a507d4c5b308b7574b79cfde3bd 100644 (file)
--- 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