Improve testiness

From-SVN: r25637
1999-03-08 06:34:47 +00:00 · 1999-03-08 06:34:47 +00:00 · 3d1d35d66a
commit 3d1d35d66a
parent fc370eff81
2 changed files with 6 additions and 1 deletions
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@ -1,3 +1,7 @@
+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.
--- 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 -------