OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [930628-1.c] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.