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  
       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  }