OSDN Git Service

Backported from mainline
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 930614-2.c
1 main ()
2 {
3   int i, j, k, l;
4   float x[8][2][8][2];
5
6   for (i = 0; i < 8; i++)
7     for (j = i; j < 8; j++)
8       for (k = 0; k < 2; k++)
9         for (l = 0; l < 2; l++)
10           {
11             if ((i == j) && (k == l))
12               x[i][k][j][l] = 0.8;
13             else
14               x[i][k][j][l] = 0.8;
15             if (x[i][k][j][l] < 0.0)
16               abort ();
17           }
18
19   exit (0);
20 }