Skip to content

Commit 07f9d8a

Browse files
committed
Don't use the test based on CBLAS
1 parent fd6b520 commit 07f9d8a

File tree

2 files changed

+15
-3
lines changed

2 files changed

+15
-3
lines changed

test/dpstrf_test/dpstrf_test.c

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,11 @@ int main()
4141
// return value
4242
MANGLE(dpstrf_)("U", &order, &A[0][0], &lda, &pivot[0], &rank, &tol, &work[0], &info);
4343
if (info != 0) {
44-
printf("ERROR: info == %ld!\n", info);
44+
#ifdef ILP64
45+
printf("ERROR: info == %ld!\n", info);
46+
#else
47+
printf("ERROR: info == %d!\n", info);
48+
#endif
4549
return 1;
4650
}
4751

test/runtests.jl

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -124,6 +124,14 @@ end
124124
run_all_tests("openblas", reverse(OpenBLAS32_jll.LIBPATH_list), :LP64, "")
125125
end
126126

127+
@testset "Vanilla ReferenceBLAS32_jll (LP64)" begin
128+
run_all_tests("blas32", reverse(ReferenceBLAS32_jll.LIBPATH_list), :LP64, "", tests = [dgemm, sdot])
129+
end
130+
131+
@testset "Vanilla ReferenceBLAS_jll (ILP64)" begin
132+
run_all_tests("blas", reverse(ReferenceBLAS_jll.LIBPATH_list), :ILP64, "", tests = [dgemm, sdot])
133+
end
134+
127135
# Next, build a version that links against `libblastrampoline`, and tell
128136
# the trampoline to forwards calls to `OpenBLAS_jll`
129137
lbt_link_name, lbt_dir = build_libblastrampoline()
@@ -142,12 +150,12 @@ end
142150

143151
@testset "LBT -> ReferenceBLAS32_jll / LAPACK32_jll (LP64)" begin
144152
libdirs = unique(vcat(lbt_dir, ReferenceBLAS32_jll.LIBPATH_list..., LAPACK32_jll.LIBPATH_list..., CompilerSupportLibraries_jll.LIBPATH_list...))
145-
run_all_tests(blastrampoline_link_name(), libdirs, :LP64, string(ReferenceBLAS32_jll.libblas32_path, ";", LAPACK32_jll.liblapack32_path))
153+
run_all_tests(blastrampoline_link_name(), libdirs, :LP64, string(ReferenceBLAS32_jll.libblas32_path, ";", LAPACK32_jll.liblapack32_path); tests = [dgemm, dpstrf, sgesv, sdot])
146154
end
147155

148156
@testset "LBT -> ReferenceBLAS_jll / LAPACK_jll (ILP64)" begin
149157
libdirs = unique(vcat(lbt_dir, ReferenceBLAS_jll.LIBPATH_list..., LAPACK_jll.LIBPATH_list..., CompilerSupportLibraries_jll.LIBPATH_list...))
150-
run_all_tests(blastrampoline_link_name(), libdirs, :ILP64, string(ReferenceBLAS_jll.libblas_path, ";", LAPACK_jll.liblapack_path))
158+
run_all_tests(blastrampoline_link_name(), libdirs, :ILP64, string(ReferenceBLAS_jll.libblas_path, ";", LAPACK_jll.liblapack_path); tests = [dgemm, dpstrf, sgesv, sdot])
151159
end
152160

153161
# Test against MKL_jll using `libmkl_rt`, which is :LP64 by default

0 commit comments

Comments
 (0)