1  /* Testcase by Martin Michlmayr <tbm@cyrius.com> */
       2  /* { dg-do compile } */
       3  /* { dg-require-effective-target vect_long } */
       4  
       5  typedef struct
       6  {
       7    long *coords;
       8  }
       9  fill_iter_info;
      10  
      11  extern int H5Diterate (fill_iter_info *);
      12  
      13  void test_select_fill_hyper_simple (long *offset)
      14  {
      15    long start[2];
      16    int num_points;
      17    long points[16][2];
      18    fill_iter_info iter_info;
      19    int i, j;
      20    iter_info.coords = (long *) points;
      21    for (j = i = 0, num_points = 0; j < (int) start[1]; j++, num_points++)
      22    {
      23      points[num_points][0] = i + start[0];
      24      points[num_points][1] = j + start[1];
      25    }
      26    H5Diterate (&iter_info);
      27  }
      28  
      29  /* Needs interleaving support.  */
      30  /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target { vect_interleave || vect_strided2 } } } } */
      31