URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000601-1.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
c { dg-do compile } SUBROUTINE SGBTRF( M, KL, KU, AB, LDAB ) * PR fortran/275 * ICE in `change_address', at emit-rtl.c:1589 with -O1 and above * g77 version 2.96 20000530 (experimental) on mips-sgi-irix6.5/-mabi=64 * * Originally derived from LAPACK 3.0 test suite failure. * * David Billinghurst, (David.Billinghurst@riotinto.com.au) * 1 June 2000 INTEGER KL, KU, LDAB, M REAL AB( LDAB, * ) INTEGER J, JB, JJ, JP, KV, KM REAL WORK13(65,64), WORK31(65,64) KV = KU + KL DO J = 1, M JB = MIN( 1, M-J+1 ) DO JJ = J, J + JB - 1 KM = MIN( KL, M-JJ ) JP = KM+1 CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1, $ AB( KV+JP+JJ-J, J ), LDAB-1 ) END DO END DO RETURN END
Go to most recent revision | Compare with Previous | Blame | View Log