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