zhangyiss/spack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a test/output pair

Browse Source
This commit is contained in:
Denis Davydov 2016-04-25 13:53:41 +02:00
parent b81cb554f5
commit 42be50d10b
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.c Normal file
View File

@ -0,0 +1,14 @@
#include <cblas.h>
#include <stdio.h>
int main(void) {
int i=0;
double A[6] = {1.0, 2.0, 1.0, -3.0, 4.0, -1.0};
double B[6] = {1.0, 2.0, 1.0, -3.0, 4.0, -1.0};
double C[9] = {.5, .5, .5, .5, .5, .5, .5, .5, .5};
cblas_dgemm(CblasColMajor, CblasNoTrans, CblasTrans,
3, 3, 2, 1, A, 3, B, 3, 2, C, 3);
for (i = 0; i < 8; i++)
printf("%lf ", C[i]);
printf("%lf", C[8]);
return 0;
}

1
var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.output Normal file
View File

@ -0,0 +1 @@
11.000000 -9.000000 5.000000 -9.000000 21.000000 -1.000000 5.000000 -1.000000 3.000000