From d7d6e6b536e1b091adab6435a1eefdf4d6c570db Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Fri, 18 Jul 2025 23:25:56 +0200
Subject: [PATCH] Adjust tests to conform to the behavior now codified by the
 Reference BLAS

---
 utest/test_extensions/test_cgemmt.c | 4 ++--
 utest/test_extensions/test_dgemmt.c | 4 ++--
 utest/test_extensions/test_sgemmt.c | 4 ++--
 utest/test_extensions/test_zgemmt.c | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/utest/test_extensions/test_cgemmt.c b/utest/test_extensions/test_cgemmt.c
index 92590b1e8..589dc6119 100644
--- a/utest/test_extensions/test_cgemmt.c
+++ b/utest/test_extensions/test_cgemmt.c
@@ -2000,7 +2000,7 @@ CTEST(cgemmt, xerbla_c_api_rowmajor_lda_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 8;
+    int expected_info = 10;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans,
                             M, K, lda, ldb, ldc, expected_info);
@@ -2016,7 +2016,7 @@ CTEST(cgemmt, xerbla_c_api_rowmajor_ldb_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 10;
+    int expected_info = 8;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasTrans, CblasTrans,
                             M, K, lda, ldb, ldc, expected_info);
diff --git a/utest/test_extensions/test_dgemmt.c b/utest/test_extensions/test_dgemmt.c
index 9ce8859cc..348e08357 100644
--- a/utest/test_extensions/test_dgemmt.c
+++ b/utest/test_extensions/test_dgemmt.c
@@ -1425,7 +1425,7 @@ CTEST(dgemmt, xerbla_c_api_rowmajor_lda_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 8;
+    int expected_info = 10;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans,
                             M, K, lda, ldb, ldc, expected_info);
@@ -1441,7 +1441,7 @@ CTEST(dgemmt, xerbla_c_api_rowmajor_ldb_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 10;
+    int expected_info = 8;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasTrans, CblasTrans,
                             M, K, lda, ldb, ldc, expected_info);
diff --git a/utest/test_extensions/test_sgemmt.c b/utest/test_extensions/test_sgemmt.c
index f61fcf5fc..5c13378e3 100644
--- a/utest/test_extensions/test_sgemmt.c
+++ b/utest/test_extensions/test_sgemmt.c
@@ -1425,7 +1425,7 @@ CTEST(sgemmt, xerbla_c_api_rowmajor_lda_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 8;
+    int expected_info = 10;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans,
                             M, K, lda, ldb, ldc, expected_info);
@@ -1441,7 +1441,7 @@ CTEST(sgemmt, xerbla_c_api_rowmajor_ldb_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 10;
+    int expected_info = 8;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasTrans, CblasTrans,
                             M, K, lda, ldb, ldc, expected_info);
diff --git a/utest/test_extensions/test_zgemmt.c b/utest/test_extensions/test_zgemmt.c
index dcd70e9e3..92d47408c 100644
--- a/utest/test_extensions/test_zgemmt.c
+++ b/utest/test_extensions/test_zgemmt.c
@@ -1998,7 +1998,7 @@ CTEST(zgemmt, xerbla_c_api_rowmajor_lda_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 8;
+    int expected_info = 10;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans,
                             M, K, lda, ldb, ldc, expected_info);
@@ -2014,7 +2014,7 @@ CTEST(zgemmt, xerbla_c_api_rowmajor_ldb_invalid)
 {
     blasint M = 50, K = 100;
     blasint lda = 50, ldb = 50, ldc = 50;
-    int expected_info = 10;
+    int expected_info = 8;
 
     int passed = check_badargs('C', CblasRowMajor, CblasUpper, CblasTrans, CblasTrans,
                             M, K, lda, ldb, ldc, expected_info);