1f(d,x,y,n)
2int*d;
3float*x,*y;
4int n;
5{
6 while(n--){*d++=*x++==*y++;}
7}
8
9main()
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}
21