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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr31025.f90] - Blame information for rev 708

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