gcc/testsuite/gcc.c-torture/compile/pr35043.c

   1 typedef long unsigned int size_t;
   2 typedef struct   {
   3       long double dat[2];
   4 } gsl_complex_long_double;
   5 typedef struct {
   6     size_t size;
   7     size_t stride;
   8     long double *data;
   9 } gsl_vector_complex_long_double;
  10 void gsl_vector_complex_long_double_set_zero (gsl_vector_complex_long_double * v)
  11 {
  12     long double * const data = v->data;
  13     const size_t n = v->size;
  14     const size_t stride = v->stride;
  15     const gsl_complex_long_double zero = { { 0.0L,0.0L} } ;
  16     size_t i;
  17     for (i = 0; i < n; i++)
  18         *(gsl_complex_long_double *) (data + 2 * i * stride) = zero;
  19 }
  20