OSDN Git Service

2009-02-24 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / pr38969.c
1 __complex__ float
2 __attribute__ ((noinline)) foo (__complex__ float x)
3 {
4   return x;
5 }
6
7 __complex__ float
8 __attribute__ ((noinline)) bar (__complex__ float x)
9 {
10   return foo (x);
11 }
12
13 int main()
14 {
15   __complex__ float a, b;
16   __real__ a = 9;
17   __imag__ a = 42;
18
19   b = bar (a);
20
21   if (a != b)
22     abort ();
23
24   return 0;
25 }