Improve testiness

From-SVN: r25637

Improve testiness
From-SVN: r25637
3d1d35d6 · Craig Burley · Craig Burley · fc370eff · 3d1d35d6 · 3d1d35d6
Commit 3d1d35d6 authored Mar 08, 1999 by Craig Burley Committed by Craig Burley Mar 08, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/g77.f-torture/execute/19981119-0.f
+2 -1

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 1999-03-08  Craig Burley  <craig@jcb-sc.com>

+	* g77.f-torture/execute/19981119-0.f: Improve testiness.
+
+1999-03-08  Craig Burley  <craig@jcb-sc.com>
+
 	* g77.f-torture/compile/19990305-0.f: New test.
 	* g77.f-torture/execute/19981119-0.f: New test.


--- a/gcc/testsuite/g77.f-torture/execute/19981119-0.f
+++ b/gcc/testsuite/g77.f-torture/execute/19981119-0.f
@@ -29,9 +29,10 @@ C vvvv    CRASH HERE   vvvvv
      program bug
      integer N
      double precision a(-10:10,-10:10)
+      data a/441*1d0/
      N=10
      call sub(N,a)
-      stop
+      if (a(-N,N) .ne. 0d0) call abort
      end
 * 
 * C --- PROGRAM END -------