1  /* { dg-do compile } */
       2  /* { dg-options "-O2" } */
       3  
       4  void
       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  }