Subversion Repositories openrisc

/* { dg-require-effective-target vect_int } */
 
#include <stdarg.h>
#include "tree-vect.h"
 
#define N 128
#define TYPE int
#define RESULT 755918
 
__attribute__ ((noinline)) TYPE fun2 (TYPE *x, TYPE *y, unsigned int n)
{
  int i, j;
  TYPE dot = 14;
 
  for (i = 0; i < n / 2; i++)
    for (j = 0; j < 2; j++)
      dot += *(x++) * *(y++);
 
  return dot;
}
 
int main (void)
{
  TYPE a[N], b[N], dot;
  int i;
 
  check_vect ();
 
  for (i = 0; i < N; i++)
    {
      a[i] = i;
      b[i] = i+8;
    }
 
  dot = fun2 (a, b, N);
  if (dot != RESULT)
    abort();
 
  return 0;
}
 
/* { dg-final { scan-tree-dump-times "vectorized 1 loops" 2 "vect" { target { vect_int_mult && {! vect_no_align } } } } } */
/* { dg-final { cleanup-tree-dump "vect" } } */