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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [20091016-1_0.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-lto-do link }
! { dg-lto-options {{-flto -g -fPIC -shared} {-O -flto -g -fPIC -shared}} }
 
      FUNCTION makenumberstring(x)
      IMPLICIT NONE
      REAL, INTENT(IN)     :: x
      CHARACTER(len=20)      :: makenumberstring
      INTEGER             :: xx
      xx = x**2  ! << ICE
      makenumberstring = ''
      END FUNCTION
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-lto-do link }`
2			`! { dg-lto-options {{-flto -g -fPIC -shared} {-O -flto -g -fPIC -shared}} }`
3
4			`FUNCTION makenumberstring(x)`
5			`IMPLICIT NONE`
6			`REAL, INTENT(IN) :: x`
7			`CHARACTER(len=20) :: makenumberstring`
8			`INTEGER :: xx`
9			`xx = x**2 ! << ICE`
10			`makenumberstring = ''`
11			`END FUNCTION`
12

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [20091016-1_0.f90] - Blame information for rev 302