From 20f7d51b7b1f26bf21b618927cff043123a6b94f Mon Sep 17 00:00:00 2001 From: Brad King Date: Fri, 2 Oct 2020 11:32:45 -0400 Subject: Tests: Revise FindBLAS test to avoid cblas_ mangling --- Tests/FindBLAS/Test/main.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Tests/FindBLAS/Test/main.c b/Tests/FindBLAS/Test/main.c index 7360dee..e61b02c 100644 --- a/Tests/FindBLAS/Test/main.c +++ b/Tests/FindBLAS/Test/main.c @@ -2,13 +2,15 @@ #include // declare what parts of the blas C-API we need -void cblas_dswap(const int N, double* X, const int incX, double* Y, - const int incY); +void dswap_(int* N, double* X, int* incX, double* Y, int* incY); int main() { double x[4] = { 1, 2, 3, 4 }; double y[4] = { 8, 7, 7, 6 }; - cblas_dswap(4, x, 1, y, 1); + int N = 4; + int incX = 1; + int incY = 1; + dswap_(&N, x, &incX, y, &incY); return 0; } -- cgit v0.12