Subversion Repositories openrisc

f (double x[2], double y[2])

{

  if (x == y)

    abort ();

}

main ()

{

  struct { int f[3]; double x[1][2]; } tp[4][2];

  int i, j, ki, kj, mi, mj;

  float bdm[4][2][4][2];

  for (i = 0; i < 4; i++)

    for (j = i; j < 4; j++)

      for (ki = 0; ki < 2; ki++)

        for (kj = 0; kj < 2; kj++)

          if ((j == i) && (ki == kj))

            bdm[i][ki][j][kj] = 1000.0;

          else

            {

              for (mi = 0; mi < 1; mi++)

                for (mj = 0; mj < 1; mj++)

                  f (tp[i][ki].x[mi], tp[j][kj].x[mj]);

              bdm[i][ki][j][kj] = 1000.0;

            }

  exit (0);

}