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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [sparc/] [20001101-1.c] - Blame information for rev 753

Line No.	Rev	Author	Line
1	691	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-require-effective-target ultrasparc_hw } */`
3			`/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */`
4
5			`extern void abort (void);`
6			`extern void exit (int);`
7
8			`int foo(double a, int b, int c, double *d, int h)`
9			`{`
10			`int f, g;`
11			`double e;`
12
13			`l:`
14			`f = (int) a;`
15			`a -= (double) f;`
16			`if (b == 1)`
17			`{`
18			`g = c;`
19			`f += g;`
20			`c -= g;`
21			`}`
22			`if (b == 2)`
23			`{`
24			`f++;`
25			`h = c;`
26			`}`
27			`if (!h)`
28			`{`
29			`for (g = 0; g <= 10; g++)`
30			`for (h = 0; h <= 10; h++)`
31			`e += d [10 + g - h];`
32			`goto l;`
33			`}`
34			`return f & 7;`
35			`}`
36
37			`int main()`
38			`{`
39			`if (foo(0.1, 1, 3, 0, 1) != 3)`
40			`abort ();`
41			`exit (0);`
42			`}`