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.