|
111
|
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
|
|
|
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
|
