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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [921206-1.c] - Blame information for rev 868

Line No.	Rev	Author	Line
1	149	jeremybenn	`double sqrt(double),fabs(double),sin(double);`
2			`int sxs;`
3			`int sys;`
4			`f()`
5			`{`
6			`int l;`
7			`int sm = -52, sx = 52;`
8			`char *smap;`
9			`for (l = 0; l < 9; l++)`
10			`{`
11			`double g;`
12			`int cx, cy, gx, gy, x, y;`
13			`gx = 2 > g / 3 ? 2 : g / 3;`
14			`gy = 2 > g / 3 ? 2 : g / 3;`
15			`for (y = 0 > cy - gy ? 0 : cy - gy; y <= (sys - 1 < cy + gy ? sys : cy + gy); y++)`
16			`{`
17			`int sx = 0 > cx - gx ? 0 : cx - gx;`
18			`short ax = (short ) (y * sxs + sx);`
19
20			`for (x = sx; x <= (sxs - 1 < cx + gx ? sxs - 1 : cx + gx); x++)`
21			`{`
22			`double c=2.25, z=sqrt(fabs(1-c)), cz=(c>1?0.0:-10)>z?c>1?0:1:z;`
23			`}`
24			`}`
25			`}`
26			`for (l = sm; l <= sx; l++)`
27			`smap[l] = l > 0 ? 1 + foo(sin(.1 * l / sx)) : 1 - foo(sin(.1 * l / sm));`
28			`}`