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] - Blame information for rev 749


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

Line No.	Rev	Author	Line
1	688	jeremybenn	`short`
2			`inner_product (short a, short b)`
3			`{`
4			`int i;`
5			`short sum = 0;`
6
7			`for (i = 9; i >= 0; i--)`
8			`sum += (a++) (*b++);`
9
10			`return sum;`
11			`}`