pr33866.c

   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 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 (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 /* { dg-final { cleanup-tree-dump "vect" } } */
  32