f(double x[2],double y[2])1 f (double x[2], double y[2])
2 {
3   if (x == y)
4     abort ();
5 }
6 
main()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 }
28