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