OSDN Git Service

* gcc.c-torture/compile/20080625-1.c: Skip for M32C.
[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