URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000518.f] - Rev 12
Compare with Previous | Blame | View Log
c { dg-do compile } 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