From 3d1d35d66a5070b8e3676bd9624c0d329ee65508 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Mon, 8 Mar 1999 06:34:47 +0000 Subject: [PATCH] Improve testiness From-SVN: r25637 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/g77.f-torture/execute/19981119-0.f | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9ddba1ab916..14e4dc78fb7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +1999-03-08 Craig Burley + + * g77.f-torture/execute/19981119-0.f: Improve testiness. + 1999-03-08 Craig Burley * 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 7fc5ef27c23..5cfab57a5fc 100644 --- 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 ------- -- 2.30.2