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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [pr28162.c] - Blame information for rev 867

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-O3" } */`
3
4			`void Lag_max_wght(float corr[], long wght_flg)`
5			`{`
6			`float t0, max;`
7			`const float *ww;`
8			`long i;`
9			`if ( wght_flg > 0 ) {`
10			`for ( i = 143; i >= 20; i-- ) {`
11			`t0 = corr[ - i] * *ww--;`
12			`if ( t0 >= max )`
13			`max = t0;`
14			`}`
15			`}`
16			`}`
17