OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

do warn, do not crash, on FSTAT gid disagreements 

From-SVN: r26719
This commit is contained in:
Craig Burley 1999-05-01 22:34:44 +00:00 committed by Craig Burley
parent 92e38ab5f3
commit f9f2ac3f2c
4 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

8
gcc/testsuite/g77.f-torture/execute/u77-test.f
View File

@ -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

5
libf2c/ChangeLog
View File

@ -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

8
libf2c/libU77/u77-test.f
View File

@ -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