gcc/testsuite/gcc.dg/tree-ssa/pr38250.c

   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