1      SUBROUTINE SORG2R( K, A, N, LDA )
2*  ICE in `verify_wide_reg_1', at flow.c:2605 at -O2
3*  g77 version 2.96 20000515 (experimental) on i686-pc-linux-gnu
4*
5*  Originally derived from LAPACK 3.0 test suite failure.
6*
7*  David Billinghurst, (David.Billinghurst@riotinto.com.au)
8*  18 May 2000
9      INTEGER            I, K, LDA, N
10      REAL               A( LDA, * )
11      DO I = K, 1, -1
12         IF( I.LT.N ) A( I, I ) = 1.0
13         A( I, I ) = 1.0
14      END DO
15      RETURN
16      END
17