1 /* { dg-do compile } */
2 /* { dg-options "-O2 -ftree-loop-distribution" } */
4 __extension__
typedef __SIZE_TYPE__
size_t;
7 } gsl_complex_long_double
;
12 } gsl_vector_complex_long_double
;
14 void gsl_vector_complex_long_double_set_zero (gsl_vector_complex_long_double
* v
)
16 long * const data
= v
->data
;
17 const size_t n
= v
->size
;
18 const size_t stride
= v
->stride
;
19 const gsl_complex_long_double zero
= { { 0,0} } ;
21 for (i
= 0; i
< n
; i
++)
22 *(gsl_complex_long_double
*) (data
+ 2 * i
* stride
) = zero
;