Subversion Repositories openrisc

/* 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 || vect_strided2 } } } } */

/* { dg-final { cleanup-tree-dump "vect" } } */