2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 20020314-1.c
blob28288c82c8bc7ee74e0969f1711ffcbdfae65228
1 void f(void * a, double y)
5 double g (double a, double b, double c, double d)
7 double x, y, z;
8 void *p;
10 x = a + b;
11 y = c * d;
13 p = alloca (16);
15 f(p, y);
16 z = x * y * a;
18 return z + b;
21 main ()
23 double a, b, c, d;
24 a = 1.0;
25 b = 0.0;
26 c = 10.0;
27 d = 0.0;
29 if (g (a, b, c, d) != 0.0)
30 abort ();
32 if (a != 1.0 || b != 0.0 || c != 10.0 || d != 0.0)
33 abort ();
35 exit (0);