1 /* { dg-do compile } */
2 /* { dg-options "-O2" } */
5 cblas_csyr2k (int N
, void *A
, int lda
, float *B
, int ldb
, float *C
, int k
)
10 for (i
= 0; i
< N
; i
++)
12 float t
= ((float * ) A
) [i
];
13 for (j
= i
; j
< N
; j
++)
15 C
[i
+ j
] = B
[ldb
] * ((float *) A
) [k
];