2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / complex-3.c
blob4297cf11ebddcfc52f2d27332886957f353e90d8
1 struct complex
3 float r;
4 float i;
5 };
7 struct complex cmplx (float, float);
9 struct complex
10 f (float a, float b)
12 struct complex c;
13 c.r = a;
14 c.i = b;
15 return c;
18 main ()
20 struct complex z = f (1.0, 0.0);
22 if (z.r != 1.0 || z.i != 0.0)
23 abort ();
24 exit (0);