modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/pr35043.c (about)

     1  typedef __SIZE_TYPE__ 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