1 /* { dg-do compile } */
2 /* { dg-options "-std=gnu99 -O1" } */
4 /* This used to result in an ICE. */
6 _Decimal64 y[258][258];
7 _Decimal64 dd[258][258];
8 _Decimal64 ry[258][258];
37 for (i = i1p; i <= i2m; i++)
40 yx = y[ip][j] - y[im][j];
41 yy = y[i][jp] - y[i][jm];
42 a = 0.25dd * (xy * xy + yy * yy);
43 b = 0.25dd * (xx * xx + yx * yx);
44 c = 0.125dd * (xx * xy + yx * yy);
46 dd[i][m] = b + a * rel + b;
47 qxx = y[ip][j] - 2.0dd * y[i][j] + y[im][j];
48 qyy = y[i][jp] - 2.0dd * y[i][j] + y[i][jm];
49 qxy = y[ip][jp] - y[ip][jm] - y[im][jp] + y[im][jm];
50 ry[i][m] = a * qxx + b * qyy - c * qxy + yx * qi + yy * qj;