1  f (double x[2], double y[2])
       2  {
       3    if (x == y)
       4      abort ();
       5  }
       6  
       7  main ()
       8  {
       9    struct { int f[3]; double x[1][2]; } tp[4][2];
      10    int i, j, ki, kj, mi, mj;
      11    float bdm[4][2][4][2];
      12  
      13    for (i = 0; i < 4; i++)
      14      for (j = i; j < 4; j++)
      15        for (ki = 0; ki < 2; ki++)
      16  	for (kj = 0; kj < 2; kj++)
      17  	  if ((j == i) && (ki == kj))
      18  	    bdm[i][ki][j][kj] = 1000.0;
      19  	  else
      20  	    {
      21  	      for (mi = 0; mi < 1; mi++)
      22  		for (mj = 0; mj < 1; mj++)
      23  		  f (tp[i][ki].x[mi], tp[j][kj].x[mj]);
      24  	      bdm[i][ki][j][kj] = 1000.0;
      25  	    }
      26    exit (0);
      27  }