mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-20 14:39:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

* g77.f-torture/compile/200005018.f: New test.

Browse Source 
From-SVN: r33988
This commit is contained in:
David Billinghurst 2000-05-18 17:10:18 +00:00 committed by Richard Henderson
parent bae29210f5
commit 3eb16773fc
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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.

16
gcc/testsuite/g77.f-torture/compile/20000518.f Normal file
View File

@ -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