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