do warn, do not crash, on FSTAT gid disagreements

From-SVN: r26719

gcc/testsuite/ChangeLog

+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

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

libf2c/ChangeLog

+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

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