diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-01 22:34:44 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-01 18:34:44 -0400 |
| commit | f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f (patch) | |
| tree | 05cecfd04397e07431cdc4065176a1f0a8a66783 /gcc | |
| parent | 92e38ab5f340e16ee21c2b8634d91530ed484d63 (diff) | |
| download | gcc-f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f.zip gcc-f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f.tar.gz gcc-f9f2ac3f2c219bf189e2e0210624e5cc14a8b63f.tar.bz2 | |
do warn, do not crash, on FSTAT gid disagreements
From-SVN: r26719
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b71d2ba..40badc4 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 535d04e..49311dc 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 |