From e4891bc055e4e654c2f3df234065fb4750ecac16 Mon Sep 17 00:00:00 2001 From: moluopro Date: Sat, 11 Jul 2026 19:50:56 +0800 Subject: [PATCH] test: register XERBLA for level 2 BLAS --- test/cblat2.f | 1 + test/dblat2.f | 1 + test/sblat2.f | 1 + test/zblat2.f | 1 + 4 files changed, 4 insertions(+) diff --git a/test/cblat2.f b/test/cblat2.f index 8c7bac48e..23df40eb0 100644 --- a/test/cblat2.f +++ b/test/cblat2.f @@ -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. diff --git a/test/dblat2.f b/test/dblat2.f index 9bbbe9792..3481238c3 100644 --- a/test/dblat2.f +++ b/test/dblat2.f @@ -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. diff --git a/test/sblat2.f b/test/sblat2.f index 56ead8640..91aecd7a6 100644 --- a/test/sblat2.f +++ b/test/sblat2.f @@ -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. diff --git a/test/zblat2.f b/test/zblat2.f index 4a20ac567..f92e98321 100644 --- a/test/zblat2.f +++ b/test/zblat2.f @@ -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.