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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [pr23434.c] - Blame information for rev 826

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-O2" } */`
3
4			`cblas_csyr2k (int N, void A, int lda, float B, int ldb, float *C, int k)`
5			`{`
6			`int i, j;`
7			`for (;; k ++)`
8			`{`
9			`for (i = 0; i < N; i ++)`
10			`{`
11			`float t = ((float * ) A) [i];`
12			`for (j = i; j < N; j ++)`
13			`{`
14			`C [i + j] = B [ldb] * ((float *) A) [k];`
15			`C [lda] = 0 ;`
16			`}`
17			`}`
18			`}`
19			`}`