turn LSTAT/STAT checking back on

From-SVN: r26615

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c5ac261cae0c5b4ab9528c22c58ea69d2f5e0916..367b91288df2ed7fb2a63c8a5afa3e4633f14cd9 100644 (file)
--- 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 bb6e1e851dbf30e28ff7f5e517adc823a06a4206..8baa8f97d31c13a6fb68f3c69e6de2194ed85b43 100644 (file)
--- 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