2 SUBROUTINE SORG2R
( K
, A
, N
, LDA
)
3 * ICE in `verify_wide_reg_1
', at flow.c:2605 at -O2
4 * g77 version 2.96 20000515 (experimental) on i686-pc-linux-gnu
6 * Originally derived from LAPACK 3.0 test suite failure.
8 * David Billinghurst, (David.Billinghurst@riotinto.com.au)
13 IF( I.LT.N ) A( I, I ) = 1.0