diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com.au> | 2000-05-18 17:10:18 +0000 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2000-05-18 10:10:18 -0700 |
| commit | 3eb16773fc995a6fb74d293f47e5caf98b0ca292 (patch) | |
| tree | 7ffdc8eb8257b51c7b627d6567afe17ae304ba53 /gcc | |
| parent | bae29210f5f959abb1e8f5edfba066c86e818ac4 (diff) | |
| download | gcc-3eb16773fc995a6fb74d293f47e5caf98b0ca292.zip gcc-3eb16773fc995a6fb74d293f47e5caf98b0ca292.tar.gz gcc-3eb16773fc995a6fb74d293f47e5caf98b0ca292.tar.bz2 | |
* g77.f-torture/compile/200005018.f: New test.
From-SVN: r33988
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20000518.f | 16 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 310c592..6ecf0e6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-05-18 David Billinghurst <David.Billinghurst@riotinto.com.au> + + * g77.f-torture/compile/200005018.f: New test. + Wed May 17 18:30:10 2000 Jeffrey A Law (law@cygnus.com) * gcc.c-torture/compile/20000517-1.c: New test. diff --git a/gcc/testsuite/g77.f-torture/compile/20000518.f b/gcc/testsuite/g77.f-torture/compile/20000518.f new file mode 100644 index 0000000..200a1eb --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000518.f @@ -0,0 +1,16 @@ + SUBROUTINE SORG2R( K, A, N, LDA ) +* ICE in `verify_wide_reg_1', at flow.c:2605 at -O2 +* g77 version 2.96 20000515 (experimental) on i686-pc-linux-gnu +* +* Originally derived from LAPACK 3.0 test suite failure. +* +* David Billinghurst, (David.Billinghurst@riotinto.com.au) +* 18 May 2000 + INTEGER I, K, LDA, N + REAL A( LDA, * ) + DO I = K, 1, -1 + IF( I.LT.N ) A( I, I ) = 1.0 + A( I, I ) = 1.0 + END DO + RETURN + END |