Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
20070603-2.c
blob: 7aaa8c2ae6d815418b3523f9ce2a347f7a584c8f [
file
] [
log
] [
blame
]
typedef
_Complex
double
ar
[];
int
f
(
ar
*
a
,
unsigned
int
n
)
{
unsigned
int
i
;
for
(
i
=
0
;
i
<
n
;
i
++)
{
(*
a
)[
i
*
4
]
=
__real__
(*
a
)[(
i
+
1
)*
4
]
+
__real__
(*
a
)[
i
*
4
];
}
}