OSDN Git Service

2009-02-17 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / compile / 991213-1.c
1 typedef __complex__ double double_complex;
2
3
4
5 void
6 p (const double_complex *t, int n)
7 {
8   int i;
9   double s = ({ typeof ( t[n/2] ) arg = ( t[n/2] ); (__imag__ arg); }) ;
10   for (i = 1; i < n/2; i++)
11     s += 2* ({ typeof ( t[i] ) arg = ( t[i] ); (__imag__ arg); }) ;
12 }
13