Improve testiness

From-SVN: r25637

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9ddba1ab9169800f4c50189e49897271be297d3c..14e4dc78fb73340aef1a1f38f92f49a085b7b909 100644 (file)
--- 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.

diff --git a/gcc/testsuite/g77.f-torture/execute/19981119-0.f b/gcc/testsuite/g77.f-torture/execute/19981119-0.f
index 7fc5ef27c2356b0d307174b7f29bc4e958722319..5cfab57a5fc61b87c51ee093404e3c9c78a7c7f3 100644 (file)
--- 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 -------