diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-04-24 10:08:34 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-04-24 06:08:34 -0400 |
| commit | 4d9a07db8806962b37b60cc4927b904bccaf74ce (patch) | |
| tree | 46eef50a6196d77dbb9f95e717a63929cdf728f7 | |
| parent | f658f69524ed11eab16acbe46760a611244d843f (diff) | |
| download | gcc-4d9a07db8806962b37b60cc4927b904bccaf74ce.zip gcc-4d9a07db8806962b37b60cc4927b904bccaf74ce.tar.gz gcc-4d9a07db8806962b37b60cc4927b904bccaf74ce.tar.bz2 | |
turn LSTAT/STAT checking back on
From-SVN: r26615
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 5 |
2 files changed, 6 insertions, 4 deletions
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 <craig@jcb-sc.com> + + * 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 <craig@jcb-sc.com> * 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 |