amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-04-20 15:48:50 +00:00
Code Issues Packages Projects Releases Wiki Activity

GTestSuite: Conjugate dot and ger IIT_ERS tests

Browse Source 
IIT_ERS tests were only implemented for {c,z}dotu and {c,z}geru. Add
the same tests for conjugate variants {c,z}dotc and {c,z}gerc.

AMD-Internal: [CPUPL-7386]
This commit is contained in:
Smyth, Edward
2025-12-05 16:01:49 +00:00
committed by GitHub
parent 8a84b2fb2c
commit b04818bf48
2 changed files with 922 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
gtestsuite/testsuite/level1/dotv/IIT_ERS/dotv_IIT_ERS.cpp
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2024, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2024 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -38,6 +38,9 @@
#include "common/testing_helpers.h"
#include "inc/check_error.h"
static const char CONJ_N = 'n';
static const char CONJ_C = 'c';
template <typename T>
class dotv_IIT_ERS : public ::testing::Test {};
typedef ::testing::Types<float, double, scomplex, dcomplex> TypeParam;
@@ -55,7 +58,7 @@ using namespace testinghelpers::IIT;
*/
// n < 0, with non-unit stride
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_nonUnitStride)
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_nonUnitStride_conjN)
{
using T = TypeParam;
gtint_t invalid_n = -1;
@@ -67,7 +70,7 @@ TYPED_TEST(dotv_IIT_ERS, n_lt_zero_nonUnitStride)
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ, CONJ, invalid_n, nullptr, inc, nullptr, inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, nullptr, inc, nullptr, inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
@@ -77,14 +80,14 @@ TYPED_TEST(dotv_IIT_ERS, n_lt_zero_nonUnitStride)
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ, CONJ, invalid_n, x.data(), inc, y.data(), inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, x.data(), inc, y.data(), inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n == 0, with non-unit stride
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_nonUnitStride)
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_nonUnitStride_conjN)
{
using T = TypeParam;
gtint_t invalid_n = 0;
@@ -96,7 +99,7 @@ TYPED_TEST(dotv_IIT_ERS, n_eq_zero_nonUnitStride)
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ, CONJ, invalid_n, nullptr, inc, nullptr, inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, nullptr, inc, nullptr, inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
@@ -106,14 +109,14 @@ TYPED_TEST(dotv_IIT_ERS, n_eq_zero_nonUnitStride)
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ, CONJ, invalid_n, x.data(), inc, y.data(), inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, x.data(), inc, y.data(), inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n < 0, with unit stride
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_unitStride)
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_unitStride_conjN)
{
using T = TypeParam;
gtint_t invalid_n = -1;
@@ -125,7 +128,7 @@ TYPED_TEST(dotv_IIT_ERS, n_lt_zero_unitStride)
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ, CONJ, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
@@ -135,14 +138,14 @@ TYPED_TEST(dotv_IIT_ERS, n_lt_zero_unitStride)
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ, CONJ, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n == 0, with unit stride
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_unitStride)
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_unitStride_conjN)
{
using T = TypeParam;
gtint_t invalid_n = 0;
@@ -154,7 +157,7 @@ TYPED_TEST(dotv_IIT_ERS, n_eq_zero_unitStride)
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ, CONJ, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
@@ -164,9 +167,127 @@ TYPED_TEST(dotv_IIT_ERS, n_eq_zero_unitStride)
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ, CONJ, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
dotv<T>( CONJ_N, CONJ_N, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n < 0, with non-unit stride
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_nonUnitStride_conjC)
{
using T = TypeParam;
gtint_t invalid_n = -1;
gtint_t inc = 5;
// Initialize rho (BLIS output) to garbage value.
T rho = T{-7.3};
// Initialize the expected output to zero.
T rho_ref;
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ_C, CONJ_C, invalid_n, nullptr, inc, nullptr, inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
// Test with all arguments correct except for the value we are choosing to test.
// Initialize vectors with random numbers.
std::vector<T> x = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ_C, CONJ_C, invalid_n, x.data(), inc, y.data(), inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n == 0, with non-unit stride
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_nonUnitStride_conjC)
{
using T = TypeParam;
gtint_t invalid_n = 0;
gtint_t inc = 5;
// Initialize rho (BLIS output) to garbage value.
T rho = T{-7.3};
// Initialize the expected output to zero.
T rho_ref;
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ_C, CONJ_C, invalid_n, nullptr, inc, nullptr, inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
// Test with all arguments correct except for the value we are choosing to test.
// Initialize vectors with random numbers.
std::vector<T> x = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ_C, CONJ_C, invalid_n, x.data(), inc, y.data(), inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n < 0, with unit stride
TYPED_TEST(dotv_IIT_ERS, n_lt_zero_unitStride_conjC)
{
using T = TypeParam;
gtint_t invalid_n = -1;
gtint_t unit_inc = 1;
// Initialize rho (BLIS output) to garbage value.
T rho = T{-7.3};
// Initialize the expected output to zero.
T rho_ref;
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ_C, CONJ_C, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
// Test with all arguments correct except for the value we are choosing to test.
// Initialize vectors with random numbers.
std::vector<T> x = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ_C, CONJ_C, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
// n == 0, with unit stride
TYPED_TEST(dotv_IIT_ERS, n_eq_zero_unitStride_conjC)
{
using T = TypeParam;
gtint_t invalid_n = 0;
gtint_t unit_inc = 1;
// Initialize rho (BLIS output) to garbage value.
T rho = T{-7.3};
// Initialize the expected output to zero.
T rho_ref;
testinghelpers::initzero<T>(rho_ref);
// Test with nullptr for all suitable arguments that shouldn't be accessed.
dotv<T>( CONJ_C, CONJ_C, invalid_n, nullptr, unit_inc, nullptr, unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
// Test with all arguments correct except for the value we are choosing to test.
// Initialize vectors with random numbers.
std::vector<T> x = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
std::vector<T> y = testinghelpers::get_random_vector<T>( -10, 10, N, unit_inc );
// Invoking DOTV with an invalid value of n.
dotv<T>( CONJ_C, CONJ_C, invalid_n, x.data(), unit_inc, y.data(), unit_inc, &rho );
// Computing the difference.
computediff<T>( "rho", rho, rho_ref );
}
#endif

854
gtestsuite/testsuite/level2/ger/IIT_ERS/ger_IIT_ERS.cpp
View File

File diff suppressed because it is too large Load Diff