phynexis-deps/OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test: register XERBLA for level 2 BLAS

Browse Source
This commit is contained in:
moluopro
2026-07-11 19:50:56 +08:00
parent 7a24cf7a6a
commit e4891bc055
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/cblat2.f
+1
View File
@@ -2401,6 +2401,7 @@
* .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK, LERR
* .. Executable Statements ..
CALL OPENBLAS_TEST_SET_XERBLA
* OK is set to .FALSE. by the special version of XERBLA or by CHKXER
* if anything is wrong.
OK = .TRUE.
test/dblat2.f
+1
View File
@@ -2351,6 +2351,7 @@
* .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK, LERR
* .. Executable Statements ..
CALL OPENBLAS_TEST_SET_XERBLA
* OK is set to .FALSE. by the special version of XERBLA or by CHKXER
* if anything is wrong.
OK = .TRUE.
test/sblat2.f
+1
View File
@@ -2351,6 +2351,7 @@
* .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK, LERR
* .. Executable Statements ..
CALL OPENBLAS_TEST_SET_XERBLA
* OK is set to .FALSE. by the special version of XERBLA or by CHKXER
* if anything is wrong.
OK = .TRUE.
test/zblat2.f
+1
View File
@@ -2408,6 +2408,7 @@
* .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK, LERR
* .. Executable Statements ..
CALL OPENBLAS_TEST_SET_XERBLA
* OK is set to .FALSE. by the special version of XERBLA or by CHKXER
* if anything is wrong.
OK = .TRUE.