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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [20091016-1_0.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-lto-do link }
! { dg-lto-options {{-flto -g -fPIC -r -nostdlib} {-O -flto -g -fPIC -r -nostdlib}} }
 
      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	694	jeremybenn	`! { dg-lto-do link }`
2			`! { dg-lto-options {{-flto -g -fPIC -r -nostdlib} {-O -flto -g -fPIC -r -nostdlib}} }`
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

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [20091016-1_0.f90] - Blame information for rev 694