summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/20000518.f
blob: ac25f25ac54298c2e72e5d1290933b7d7e9a04c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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