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/] [graphite/] [id-8.f] - Blame information for rev 312

Line No.	Rev	Author	Line
1	302	jeremybenn	`subroutine foo(mxgtot,mxsh)`
2			`logical b`
3			`dimension ex(mxgtot),cs(mxgtot)`
4			`do 500 jg = k1,ig`
5			`u = ex(ig)+ex(jg)`
6			`z = u*sqrt(u)`
7			`x = cs(ig)*cs(jg)/z`
8			`if (ig .eq. jg) go to 480`
9			`x = x+x`
10			`480 continue`
11			`y = y+x`
12			`500 continue`
13			`if(y.gt.t) z=1/sqrt(y)`
14			`if (b) then`
15			`write(9) z`
16			`endif`
17			`end`