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] - Rev 856
Go to most recent revision | Compare with Previous | Blame | View Log
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); }
Go to most recent revision | Compare with Previous | Blame | View Log