124124 run_all_tests (" openblas" , reverse (OpenBLAS32_jll. LIBPATH_list), :LP64 , " " )
125125end
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`
129137lbt_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] )
146154end
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] )
151159end
152160
153161# Test against MKL_jll using `libmkl_rt`, which is :LP64 by default
0 commit comments