diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-01 22:34:44 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-01 22:34:44 +0000 |
| commit | 8cee85addb253e155207d12d48abf2263f22683d (patch) | |
| tree | 05cecfd04397e07431cdc4065176a1f0a8a66783 | |
| parent | 934b8ec719c37dae5774a68f66802dececb82109 (diff) | |
| download | ppe42-gcc-8cee85addb253e155207d12d48abf2263f22683d.tar.gz ppe42-gcc-8cee85addb253e155207d12d48abf2263f22683d.zip | |
do warn, do not crash, on FSTAT gid disagreements
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26719 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 8 | ||||
| -rw-r--r-- | libf2c/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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 <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 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 |
