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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [921013-1.c] - Blame information for rev 774

Line No.	Rev	Author	Line
1	688	jeremybenn	`f(d,x,y,n)`
2			`int*d;`
3			`floatx,y;`
4			`int n;`
5			`{`
6			`while(n--){d++=x++==*y++;}`
7			`}`
8
9			`main()`
10			`{`
11			`int r[4];`
12			`float a[]={5,1,3,5};`
13			`float b[]={2,4,3,0};`
14			`int i;`
15			`f(r,a,b,4);`
16			`for(i=0;i<4;i++)`
17			`if((a[i]==b[i])!=r[i])`
18			`abort();`
19			`exit(0);`
20			`}`