From 4d9a07db8806962b37b60cc4927b904bccaf74ce Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sat, 24 Apr 1999 10:08:34 +0000 Subject: turn LSTAT/STAT checking back on From-SVN: r26615 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/execute/u77-test.f | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c5ac261..367b912 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +1999-04-24 Craig Burley + + * g77.f-torture/execute/u77-test.f (main): Bug involving + LSTAT has been fixed, so turn back on full checking. + 1999-04-20 Craig Burley * g77.f-torture/compile/19990419-0.f: New test. diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f index bb6e1e8..8baa8f9 100644 --- a/gcc/testsuite/g77.f-torture/execute/u77-test.f +++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f @@ -233,10 +233,7 @@ C the better to test with, my dear! (-- burley) end do i = lstat ('foo', fstatb) do i=1,13 -c For some reason that I haven't investigated, some people see -c failures with the 7th element which doesn't seem to indicate a u77 -c bug. - if (fstatb (i) .ne. statb (i) .and. i .ne. 7) then + if (fstatb (i) .ne. statb (i)) then write (6,*) '*** LSTAT and STAT don''t agree on '// + 'array element ', i, ' value ', fstatb (i), statb (i) call abort -- cgit v1.1