diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-03-08 06:34:47 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-03-08 01:34:47 -0500 |
| commit | 3d1d35d66a5070b8e3676bd9624c0d329ee65508 (patch) | |
| tree | d8b949c3625328f13c4243d801ab7d9543e59990 /gcc | |
| parent | fc370eff81a4f2b5fd5e461163502d5b326c4745 (diff) | |
| download | gcc-3d1d35d66a5070b8e3676bd9624c0d329ee65508.zip gcc-3d1d35d66a5070b8e3676bd9624c0d329ee65508.tar.gz gcc-3d1d35d66a5070b8e3676bd9624c0d329ee65508.tar.bz2 | |
Improve testiness
From-SVN: r25637
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19981119-0.f | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9ddba1a..14e4dc7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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. diff --git a/gcc/testsuite/g77.f-torture/execute/19981119-0.f b/gcc/testsuite/g77.f-torture/execute/19981119-0.f index 7fc5ef2..5cfab57 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 ------- |