From f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sat, 1 May 1999 22:34:44 +0000 Subject: [PATCH] do warn, do not crash, on FSTAT gid disagreements From-SVN: r26719 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/execute/u77-test.f | 8 +++++--- libf2c/ChangeLog | 5 +++++ libf2c/libU77/u77-test.f | 8 +++++--- 4 files changed, 20 insertions(+), 6 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b71d2ba8b9a..40badc4f558 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Sun May 2 00:06:45 1999 Craig Burley + + * 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 * 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 535d04ecce8..49311dc7f85 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 180ba1485a1..d486ad2cfb1 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Sun May 2 00:06:45 1999 Craig Burley + + * 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 * libU77/u77-test.f: Generalize sum-checking to diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f index 50ae41d6b7e..603e3cc6dc9 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 -- 2.30.2