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)5 cblas_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