2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 991213-1.c
blob4803d13915f063d66ad6305b6f26d298b4f15592
1 typedef __complex__ double double_complex;
5 void
6 p (const double_complex *t, int n)
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); }) ;