1 /* { dg-do compile } */
2 /* { dg-options "-O2 -ftree-loop-distribution" } */
3 
4 __extension__ typedef __SIZE_TYPE__ size_t;
5 typedef struct   {
6           long dat[2];
7 } gsl_complex_long_double;
8 typedef struct {
9  size_t size;
10  size_t stride;
11  long *data;
12 } gsl_vector_complex_long_double;
13 
gsl_vector_complex_long_double_set_zero(gsl_vector_complex_long_double * v)14 void gsl_vector_complex_long_double_set_zero (gsl_vector_complex_long_double * v)
15 {
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} } ;
20  size_t i;
21  for (i = 0; i < n; i++)
22   *(gsl_complex_long_double *) (data + 2 * i * stride) = zero;
23 }
24 
25