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