URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr31025.f90] - Blame information for rev 316

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-options "-O2" }`
2			`real*8 function f(x)`
3			`t1 = g(0)`
4			`if(x .eq. 0) then`
5			`f = 0`
6			`else if(x .eq. 1) then`
7			`f = t1 *log( t1 )`
8			`end if`
9			`end`