| @@ -714,38 +714,6 @@ CTEST(cimatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(cimatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda_src = 0, lda_dst = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(cimatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda_src = 100, lda_dst = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda_src. | |||
| * If matrices are stored using row major layout, | |||
| @@ -524,38 +524,6 @@ CTEST(comatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(comatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda = 0, ldb = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(comatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda = 100, ldb = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda. | |||
| * If matrices are stored using row major layout, | |||
| @@ -811,38 +811,6 @@ CTEST(dimatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(dimatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda_src = 0, lda_dst = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(dimatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda_src = 100, lda_dst = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda_src. | |||
| * If matrices are stored using row major layout, | |||
| @@ -536,38 +536,6 @@ CTEST(domatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(domatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda = 0, ldb = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(domatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda = 100, ldb = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda. | |||
| * If matrices are stored using row major layout, | |||
| @@ -811,38 +811,6 @@ CTEST(simatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(simatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda_src = 0, lda_dst = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(simatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda_src = 100, lda_dst = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda_src. | |||
| * If matrices are stored using row major layout, | |||
| @@ -536,38 +536,6 @@ CTEST(somatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(somatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda = 0, ldb = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(somatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda = 100, ldb = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda. | |||
| * If matrices are stored using row major layout, | |||
| @@ -714,38 +714,6 @@ CTEST(zimatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(zimatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda_src = 0, lda_dst = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(zimatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda_src = 100, lda_dst = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda_src, lda_dst, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda_src. | |||
| * If matrices are stored using row major layout, | |||
| @@ -541,38 +541,6 @@ CTEST(zomatcopy, xerbla_invalid_trans) | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param m. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(zomatcopy, xerbla_invalid_rows) | |||
| { | |||
| blasint m = 0, n = 100; | |||
| blasint lda = 0, ldb = 100; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 3; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param n. | |||
| * Must be positive. | |||
| */ | |||
| CTEST(zomatcopy, xerbla_invalid_cols) | |||
| { | |||
| blasint m = 100, n = 0; | |||
| blasint lda = 100, ldb = 0; | |||
| char order = 'C'; | |||
| char trans = 'T'; | |||
| int expected_info = 4; | |||
| int passed = check_badargs(order, trans, m, n, lda, ldb, expected_info); | |||
| ASSERT_EQUAL(TRUE, passed); | |||
| } | |||
| /** | |||
| * Test error function for an invalid param lda. | |||
| * If matrices are stored using row major layout, | |||