2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 921206-1.c
blob10fa5ea6479f26d6f9e33adb7dc705664dfe3b01
1 double sqrt(double),fabs(double),sin(double);
2 int sxs;
3 int sys;
4 f()
6 int l;
7 int sm = -52, sx = 52;
8 char *smap;
9 for (l = 0; l < 9; l++)
11 double g;
12 int cx, cy, gx, gy, x, y;
13 gx = 2 > g / 3 ? 2 : g / 3;
14 gy = 2 > g / 3 ? 2 : g / 3;
15 for (y = 0 > cy - gy ? 0 : cy - gy; y <= (sys - 1 < cy + gy ? sys : cy + gy); y++)
17 int sx = 0 > cx - gx ? 0 : cx - gx;
18 short *ax = (short *) (y * sxs + sx);
20 for (x = sx; x <= (sxs - 1 < cx + gx ? sxs - 1 : cx + gx); x++)
22 double c=2.25, z=sqrt(fabs(1-c)), cz=(c>1?0.0:-10)>z?c>1?0:1:z;
26 for (l = sm; l <= sx; l++)
27 smap[l] = l > 0 ? 1 + foo(sin(.1 * l / sx)) : 1 - foo(sin(.1 * l / sm));