diff options
| author | Denis Davydov <davydden@gmail.com> | 2016-04-25 13:53:41 +0200 |
|---|---|---|
| committer | Denis Davydov <davydden@gmail.com> | 2016-04-25 13:53:41 +0200 |
| commit | 42be50d10b649a130e64f2a742fa4133ed5534b7 (patch) | |
| tree | eba4938df76b6524b9b39b8c55096ef425ef2306 | |
| parent | b81cb554f505c4075b9df79ab3db08be3d3b9e36 (diff) | |
| download | spack-42be50d10b649a130e64f2a742fa4133ed5534b7.tar.gz spack-42be50d10b649a130e64f2a742fa4133ed5534b7.tar.bz2 spack-42be50d10b649a130e64f2a742fa4133ed5534b7.tar.xz spack-42be50d10b649a130e64f2a742fa4133ed5534b7.zip | |
add a test/output pair
| -rw-r--r-- | var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.c | 14 | ||||
| -rw-r--r-- | var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.output | 1 |
2 files changed, 15 insertions, 0 deletions
diff --git a/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.c b/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.c new file mode 100644 index 0000000000..37785bf47f --- /dev/null +++ b/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.c @@ -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; +} diff --git a/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.output b/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.output new file mode 100644 index 0000000000..490905aca0 --- /dev/null +++ b/var/spack/repos/builtin/packages/openblas/test_cblas_dgemm.output @@ -0,0 +1 @@ +11.000000 -9.000000 5.000000 -9.000000 21.000000 -1.000000 5.000000 -1.000000 3.000000
\ No newline at end of file |