2 SUBROUTINE SGBTRF
( M
, KL
, KU
, AB
, LDAB
)
5 * ICE in `change_address
', at emit-rtl.c:1589 with -O1 and above
6 * g77 version 2.96 20000530 (experimental) on mips-sgi-irix6.5/-mabi=64
8 * Originally derived from LAPACK 3.0 test suite failure.
10 * David Billinghurst, (David.Billinghurst@riotinto.com.au)
13 INTEGER KL, KU, LDAB, M
16 INTEGER J, JB, JJ, JP, KV, KM
17 REAL WORK13(65,64), WORK31(65,64)
24 CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1,
25 $ AB( KV+JP+JJ-J, J ), LDAB-1 )