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] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
f(d,x,y,n) int*d; float*x,*y; int n; { while(n--){*d++=*x++==*y++;} } main() { int r[4]; float a[]={5,1,3,5}; float b[]={2,4,3,0}; int i; f(r,a,b,4); for(i=0;i<4;i++) if((a[i]==b[i])!=r[i]) abort(); exit(0); }
Go to most recent revision | Compare with Previous | Blame | View Log