turn LSTAT/STAT checking back on

From-SVN: r26615

turn LSTAT/STAT checking back on
From-SVN: r26615
4d9a07db · Craig Burley · Craig Burley · f658f695 · 4d9a07db · 4d9a07db
Commit 4d9a07db authored 26 years ago by Craig Burley Committed by Craig Burley 26 years ago
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 4 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/g77.f-torture/execute/u77-test.f
+1 -4

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

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