URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000518.f] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	149	jeremybenn	`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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000518.f] - Blame information for rev 853