diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c5ac261cae0..367b91288df 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 bb6e1e851db..8baa8f97d31 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