1 /* Testcase by Martin Michlmayr <tbm@cyrius.com> */
2 /* { dg-do compile } */
3 /* { dg-require-effective-target vect_long } */
11 extern H5Diterate (fill_iter_info
*);
13 void test_select_fill_hyper_simple (long *offset
)
18 fill_iter_info iter_info
;
20 iter_info
.coords
= (long *) points
;
21 for (i
= 0, num_points
= 0; j
< (int) start
[1]; j
++, num_points
++)
23 points
[num_points
][0] = i
+ start
[0];
24 points
[num_points
][1] = j
+ start
[1];
26 H5Diterate (&iter_info
);
29 /* Needs interleaving support. */
30 /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target { vect_interleave } } } } */
31 /* { dg-final { cleanup-tree-dump "vect" } } */