gcc/testsuite/gfortran.dg/g77/20000518.f

   1 c { dg-do compile }
   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
   5 *
   6 *  Originally derived from LAPACK 3.0 test suite failure.
   7 *
   8 *  David Billinghurst, (David.Billinghurst@riotinto.com.au)
   9 *  18 May 2000
  10       INTEGER            I, K, LDA, N
  11       REAL               A( LDA, * )
  12       DO I = K, 1, -1
  13          IF( I.LT.N ) A( I, I ) = 1.0
  14          A( I, I ) = 1.0
  15       END DO
  16       RETURN
  17       END