124
124
run_all_tests (" openblas" , reverse (OpenBLAS32_jll. LIBPATH_list), :LP64 , " " )
125
125
end
126
126
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
+
127
135
# Next, build a version that links against `libblastrampoline`, and tell
128
136
# the trampoline to forwards calls to `OpenBLAS_jll`
129
137
lbt_link_name, lbt_dir = build_libblastrampoline ()
@@ -142,12 +150,12 @@ end
142
150
143
151
@testset " LBT -> ReferenceBLAS32_jll / LAPACK32_jll (LP64)" begin
144
152
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] )
146
154
end
147
155
148
156
@testset " LBT -> ReferenceBLAS_jll / LAPACK_jll (ILP64)" begin
149
157
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] )
151
159
end
152
160
153
161
# Test against MKL_jll using `libmkl_rt`, which is :LP64 by default
0 commit comments