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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20000717-1.c] - Blame information for rev 247


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	149	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			`}`