URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20000717-1.c] - Rev 801

short
inner_product (short *a, short *b)
{
  int i;
  short sum = 0;
 
  for (i = 9; i >= 0; i--)
    sum += (*a++) * (*b++);
 
  return sum;
}