Files
TheRock/rocm-libraries/projects/rocsparse/clients/testings/testing_csrgemm_reuse.cpp
T
derek.holloway 7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
Flatten subprojects into a single base monorepo
2026-09-02 16:34:47 -07:00

909 lines
38 KiB
C++

/*! \file */
/* ************************************************************************
* Copyright (C) 2019-2024 Advanced Micro Devices, Inc. All rights Reserved.
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
* ************************************************************************ */
#include "testing.hpp"
template <typename T>
void testing_csrgemm_reuse_bad_arg(const Arguments& arg)
{
static const size_t safe_size = 100;
T h_alpha = 0.6;
T h_beta = 0.2;
// Create rocsparse handle
rocsparse_local_handle local_handle;
// Create matrix descriptors
rocsparse_local_mat_descr local_descr_A;
rocsparse_local_mat_descr local_descr_B;
rocsparse_local_mat_descr local_descr_C;
rocsparse_local_mat_descr local_descr_D;
// Create info desciptor
rocsparse_local_mat_info local_info_C;
rocsparse_handle handle = local_handle;
rocsparse_operation trans_A = rocsparse_operation_none;
rocsparse_operation trans_B = rocsparse_operation_none;
rocsparse_int m = safe_size;
rocsparse_int n = safe_size;
rocsparse_int k = safe_size;
rocsparse_mat_info info_C = local_info_C;
size_t* buffer_size = (size_t*)0x4;
void* temp_buffer = (void*)0x4;
// C matrix
const rocsparse_mat_descr descr_C = local_descr_C;
T* csr_val_C = (T*)0x4;
rocsparse_int* csr_row_ptr_C = (rocsparse_int*)0x4;
rocsparse_int* csr_col_ind_C = (rocsparse_int*)0x4;
#define PARAMS_BUFFER_SIZE \
handle, trans_A, trans_B, m, n, k, alpha, descr_A, nnz_A, csr_row_ptr_A, csr_col_ind_A, \
descr_B, nnz_B, csr_row_ptr_B, csr_col_ind_B, beta, descr_D, nnz_D, csr_row_ptr_D, \
csr_col_ind_D, info_C, buffer_size
#define PARAMS_NNZ \
handle, trans_A, trans_B, m, n, k, descr_A, nnz_A, csr_row_ptr_A, csr_col_ind_A, descr_B, \
nnz_B, csr_row_ptr_B, csr_col_ind_B, descr_D, nnz_D, csr_row_ptr_D, csr_col_ind_D, \
descr_C, csr_row_ptr_C, nnz_C, info_C, temp_buffer
#define PARAMS_SYMBOLIC \
handle, trans_A, trans_B, m, n, k, descr_A, nnz_A, csr_row_ptr_A, csr_col_ind_A, descr_B, \
nnz_B, csr_row_ptr_B, csr_col_ind_B, descr_D, nnz_D, csr_row_ptr_D, csr_col_ind_D, \
descr_C, nnz_C, csr_row_ptr_C, csr_col_ind_C, info_C, temp_buffer
#define PARAMS_NUMERIC \
handle, trans_A, trans_B, m, n, k, alpha, descr_A, nnz_A, csr_val_A, csr_row_ptr_A, \
csr_col_ind_A, descr_B, nnz_B, csr_val_B, csr_row_ptr_B, csr_col_ind_B, beta, descr_D, \
nnz_D, csr_val_D, csr_row_ptr_D, csr_col_ind_D, descr_C, nnz_C, csr_val_C, csr_row_ptr_C, \
csr_col_ind_C, info_C, temp_buffer
// 4 Scenarios need to be tested:
// Scenario 1: alpha == nullptr && beta == nullptr
// Scenario 2: alpha != nullptr && beta == nullptr
// Scenario 3: alpha == nullptr && beta != nullptr
// Scenario 4: alpha != nullptr && beta != nullptr
// ###############################################
// Scenario 1: alpha == nullptr && beta == nullptr
// ###############################################
{
// In this scenario matrices A == B == D == nullptr
static constexpr int nargs_to_exclude_buffer_size = 14;
static constexpr int nargs_to_exclude_nnz = 16;
static constexpr int nargs_to_exclude_symbolic = 17;
static constexpr int nargs_to_exclude_numeric = 18;
const int args_to_exclude_buffer_size[nargs_to_exclude_buffer_size]
= {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19};
const int args_to_exclude_nnz[nargs_to_exclude_nnz]
= {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22};
const int args_to_exclude_symbolic[nargs_to_exclude_symbolic]
= {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23};
const int args_to_exclude_numeric[nargs_to_exclude_numeric]
= {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 29};
const T* alpha = (const T*)nullptr;
const T* beta = (const T*)nullptr;
// A matrix
const rocsparse_mat_descr descr_A = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_A = 0;
const T* csr_val_A = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_A = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_A = (const rocsparse_int*)nullptr;
// B matrix
const rocsparse_mat_descr descr_B = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_B = 0;
const T* csr_val_B = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_B = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_B = (const rocsparse_int*)nullptr;
// D matrix
const rocsparse_mat_descr descr_D = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_D = 0;
const T* csr_val_D = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_D = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_D = (const rocsparse_int*)nullptr;
select_bad_arg_analysis(rocsparse_csrgemm_buffer_size<T>,
nargs_to_exclude_buffer_size,
args_to_exclude_buffer_size,
PARAMS_BUFFER_SIZE);
{
rocsparse_int* nnz_C = (rocsparse_int*)0x4;
select_bad_arg_analysis(
rocsparse_csrgemm_nnz, nargs_to_exclude_nnz, args_to_exclude_nnz, PARAMS_NNZ);
}
{
rocsparse_int nnz_C = safe_size;
;
select_bad_arg_analysis(rocsparse_csrgemm_symbolic,
nargs_to_exclude_symbolic,
args_to_exclude_symbolic,
PARAMS_SYMBOLIC);
select_bad_arg_analysis(rocsparse_csrgemm_numeric<T>,
nargs_to_exclude_numeric,
args_to_exclude_numeric,
PARAMS_NUMERIC);
}
}
// ###############################################
// Scenario 2: alpha != nullptr && beta == nullptr
// ###############################################
{
// In this scenario matrices A != B != nullptr and D == nullptr
static constexpr int nargs_to_exclude_buffer_size = 6;
static constexpr int nargs_to_exclude_nnz = 4;
static constexpr int nargs_to_exclude_symbolic = 4;
static constexpr int nargs_to_exclude_numeric = 6;
const int args_to_exclude_buffer_size[nargs_to_exclude_buffer_size]
= {6, 15, 16, 17, 18, 19};
const int args_to_exclude_nnz[nargs_to_exclude_nnz] = {14, 15, 16, 17};
const int args_to_exclude_symbolic[nargs_to_exclude_symbolic] = {14, 15, 16, 17};
const int args_to_exclude_numeric[nargs_to_exclude_numeric] = {17, 18, 19, 20, 21, 22};
const T* alpha = &h_alpha;
const T* beta = (const T*)nullptr;
// A matrix
const rocsparse_mat_descr descr_A = local_descr_A;
rocsparse_int nnz_A = safe_size;
const T* csr_val_A = (const T*)0x4;
const rocsparse_int* csr_row_ptr_A = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_A = (const rocsparse_int*)0x4;
// B matrix
const rocsparse_mat_descr descr_B = local_descr_B;
rocsparse_int nnz_B = safe_size;
const T* csr_val_B = (const T*)0x4;
const rocsparse_int* csr_row_ptr_B = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_B = (const rocsparse_int*)0x4;
// D matrix
const rocsparse_mat_descr descr_D = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_D = 0;
const T* csr_val_D = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_D = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_D = (const rocsparse_int*)nullptr;
select_bad_arg_analysis(rocsparse_csrgemm_buffer_size<T>,
nargs_to_exclude_buffer_size,
args_to_exclude_buffer_size,
PARAMS_BUFFER_SIZE);
{
rocsparse_int* nnz_C = (rocsparse_int*)0x4;
select_bad_arg_analysis(
rocsparse_csrgemm_nnz, nargs_to_exclude_nnz, args_to_exclude_nnz, PARAMS_NNZ);
}
{
rocsparse_int nnz_C = safe_size;
;
select_bad_arg_analysis(rocsparse_csrgemm_symbolic,
nargs_to_exclude_symbolic,
args_to_exclude_symbolic,
PARAMS_SYMBOLIC);
select_bad_arg_analysis(rocsparse_csrgemm_numeric<T>,
nargs_to_exclude_numeric,
args_to_exclude_numeric,
PARAMS_NUMERIC);
}
}
// ###############################################
// Scenario 3: alpha == nullptr && beta != nullptr
// ###############################################
{
// In this scenario matrices A == B == nullptr and D != nullptr
static constexpr int nargs_to_exclude_buffer_size = 11;
static constexpr int nargs_to_exclude_nnz = 9;
static constexpr int nargs_to_exclude_symbolic = 9;
static constexpr int nargs_to_exclude_numeric = 12;
const int args_to_exclude_buffer_size[nargs_to_exclude_buffer_size]
= {5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15};
const int args_to_exclude_nnz[nargs_to_exclude_nnz] = {6, 7, 8, 9, 10, 11, 12, 13, 22};
const int args_to_exclude_symbolic[nargs_to_exclude_symbolic]
= {6, 7, 8, 9, 10, 11, 12, 13, 23};
const int args_to_exclude_numeric[nargs_to_exclude_numeric]
= {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 29};
const T* alpha = (const T*)nullptr;
const T* beta = &h_beta;
temp_buffer = (void*)nullptr;
// A matrix
const rocsparse_mat_descr descr_A = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_A = 0;
const T* csr_val_A = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_A = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_A = (const rocsparse_int*)nullptr;
// B matrix
const rocsparse_mat_descr descr_B = (const rocsparse_mat_descr) nullptr;
rocsparse_int nnz_B = 0;
const T* csr_val_B = (const T*)nullptr;
const rocsparse_int* csr_row_ptr_B = (const rocsparse_int*)nullptr;
const rocsparse_int* csr_col_ind_B = (const rocsparse_int*)nullptr;
// D matrix
const rocsparse_mat_descr descr_D = local_descr_D;
rocsparse_int nnz_D = safe_size;
const T* csr_val_D = (const T*)0x4;
const rocsparse_int* csr_row_ptr_D = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_D = (const rocsparse_int*)0x4;
select_bad_arg_analysis(rocsparse_csrgemm_buffer_size<T>,
nargs_to_exclude_buffer_size,
args_to_exclude_buffer_size,
PARAMS_BUFFER_SIZE);
{
rocsparse_int* nnz_C = (rocsparse_int*)0x4;
select_bad_arg_analysis(
rocsparse_csrgemm_nnz, nargs_to_exclude_nnz, args_to_exclude_nnz, PARAMS_NNZ);
}
{
rocsparse_int nnz_C = safe_size;
;
select_bad_arg_analysis(rocsparse_csrgemm_symbolic,
nargs_to_exclude_symbolic,
args_to_exclude_symbolic,
PARAMS_SYMBOLIC);
select_bad_arg_analysis(rocsparse_csrgemm_numeric<T>,
nargs_to_exclude_numeric,
args_to_exclude_numeric,
PARAMS_NUMERIC);
}
temp_buffer = (void*)0x4;
}
// ###############################################
// Scenario 4: alpha != nullptr && beta != nullptr
// ###############################################
{
// In this scenario matrices A != B != D != nullptr
static constexpr int nargs_to_exclude_buffer_size = 2;
static constexpr int nargs_to_exclude_numeric = 2;
const int args_to_exclude_buffer_size[nargs_to_exclude_buffer_size] = {6, 15};
const int args_to_exclude_numeric[nargs_to_exclude_numeric] = {6, 17};
const T* alpha = &h_alpha;
const T* beta = &h_beta;
// A matrix
const rocsparse_mat_descr descr_A = local_descr_A;
rocsparse_int nnz_A = safe_size;
const T* csr_val_A = (const T*)0x4;
const rocsparse_int* csr_row_ptr_A = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_A = (const rocsparse_int*)0x4;
// B matrix
const rocsparse_mat_descr descr_B = local_descr_B;
rocsparse_int nnz_B = safe_size;
const T* csr_val_B = (const T*)0x4;
const rocsparse_int* csr_row_ptr_B = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_B = (const rocsparse_int*)0x4;
// D matrix
const rocsparse_mat_descr descr_D = local_descr_D;
rocsparse_int nnz_D = safe_size;
const T* csr_val_D = (const T*)0x4;
const rocsparse_int* csr_row_ptr_D = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_D = (const rocsparse_int*)0x4;
select_bad_arg_analysis(rocsparse_csrgemm_buffer_size<T>,
nargs_to_exclude_buffer_size,
args_to_exclude_buffer_size,
PARAMS_BUFFER_SIZE);
{
rocsparse_int* nnz_C = (rocsparse_int*)0x4;
bad_arg_analysis(rocsparse_csrgemm_nnz, PARAMS_NNZ);
}
{
rocsparse_int nnz_C = safe_size;
;
bad_arg_analysis(rocsparse_csrgemm_symbolic, PARAMS_SYMBOLIC);
select_bad_arg_analysis(rocsparse_csrgemm_numeric<T>,
nargs_to_exclude_numeric,
args_to_exclude_numeric,
PARAMS_NUMERIC);
}
}
//
// Not implemented cases.
//
{
const T* alpha = &h_alpha;
const T* beta = &h_beta;
// A matrix
const rocsparse_mat_descr descr_A = local_descr_A;
rocsparse_int nnz_A = safe_size;
const T* csr_val_A = (const T*)0x4;
const rocsparse_int* csr_row_ptr_A = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_A = (const rocsparse_int*)0x4;
// B matrix
const rocsparse_mat_descr descr_B = local_descr_B;
rocsparse_int nnz_B = safe_size;
const T* csr_val_B = (const T*)0x4;
const rocsparse_int* csr_row_ptr_B = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_B = (const rocsparse_int*)0x4;
// D matrix
const rocsparse_mat_descr descr_D = local_descr_D;
rocsparse_int nnz_D = safe_size;
const T* csr_val_D = (const T*)0x4;
const rocsparse_int* csr_row_ptr_D = (const rocsparse_int*)0x4;
const rocsparse_int* csr_col_ind_D = (const rocsparse_int*)0x4;
{
rocsparse_operation op = trans_A;
trans_A = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_buffer_size<T>(PARAMS_BUFFER_SIZE),
rocsparse_status_not_implemented);
trans_A = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_buffer_size<T>(PARAMS_BUFFER_SIZE),
rocsparse_status_not_implemented);
trans_A = op;
op = trans_B;
trans_B = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_buffer_size<T>(PARAMS_BUFFER_SIZE),
rocsparse_status_not_implemented);
trans_B = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_buffer_size<T>(PARAMS_BUFFER_SIZE),
rocsparse_status_not_implemented);
trans_B = op;
}
{
rocsparse_int* nnz_C = (rocsparse_int*)0x4;
rocsparse_operation op = trans_A;
trans_A = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_nnz(PARAMS_NNZ),
rocsparse_status_not_implemented);
trans_A = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_nnz(PARAMS_NNZ),
rocsparse_status_not_implemented);
trans_A = op;
op = trans_B;
trans_B = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_nnz(PARAMS_NNZ),
rocsparse_status_not_implemented);
trans_B = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_nnz(PARAMS_NNZ),
rocsparse_status_not_implemented);
trans_B = op;
}
{
rocsparse_int nnz_C = safe_size;
rocsparse_operation op = trans_A;
trans_A = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC),
rocsparse_status_not_implemented);
trans_A = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC),
rocsparse_status_not_implemented);
trans_A = op;
op = trans_B;
trans_B = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC),
rocsparse_status_not_implemented);
trans_B = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC),
rocsparse_status_not_implemented);
trans_B = op;
}
{
rocsparse_int nnz_C = safe_size;
rocsparse_operation op = trans_A;
trans_A = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC),
rocsparse_status_not_implemented);
trans_A = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC),
rocsparse_status_not_implemented);
trans_A = op;
op = trans_B;
trans_B = rocsparse_operation_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC),
rocsparse_status_not_implemented);
trans_B = rocsparse_operation_conjugate_transpose;
EXPECT_ROCSPARSE_STATUS(rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC),
rocsparse_status_not_implemented);
trans_B = op;
}
}
#undef PARAMS
#undef PARAMS_SYMBOLIC
#undef PARAMS_NUMERIC
#undef PARAMS_NNZ
#undef PARAMS_BUFFER_SIZE
}
enum testing_csrgemm_scenario
{
testing_csrgemm_scenario_none,
testing_csrgemm_scenario_alpha,
testing_csrgemm_scenario_beta,
testing_csrgemm_scenario_alpha_and_beta,
};
template <typename T>
void testing_csrgemm_reuse(const Arguments& arg)
{
rocsparse_int M = arg.M;
rocsparse_int N = arg.N;
rocsparse_int K = arg.K;
rocsparse_operation transA = arg.transA;
rocsparse_operation transB = arg.transB;
rocsparse_index_base baseA = arg.baseA;
rocsparse_index_base baseB = arg.baseB;
rocsparse_index_base baseC = arg.baseC;
rocsparse_index_base baseD = arg.baseD;
static constexpr bool full_rank = false;
T v_alpha = arg.get_alpha<T>(), v_beta = arg.get_beta<T>();
// Create rocsparse handle
rocsparse_local_handle handle;
// Create matrix descriptor
rocsparse_local_mat_descr descrA;
rocsparse_local_mat_descr descrB;
rocsparse_local_mat_descr descrC;
rocsparse_local_mat_descr descrD;
// Set matrix index base
CHECK_ROCSPARSE_ERROR(rocsparse_set_mat_index_base(descrA, baseA));
CHECK_ROCSPARSE_ERROR(rocsparse_set_mat_index_base(descrB, baseB));
CHECK_ROCSPARSE_ERROR(rocsparse_set_mat_index_base(descrC, baseC));
CHECK_ROCSPARSE_ERROR(rocsparse_set_mat_index_base(descrD, baseD));
// Create matrix info for C
rocsparse_local_mat_info info;
void* dbuffer = nullptr;
#define PARAMS_BUFFER_SIZE(alpha, beta, A, B, C, D, out_buffer_size) \
handle, transA, transB, A.m, C.n, A.n, alpha, descrA, A.nnz, A.ptr, A.ind, descrB, B.nnz, \
B.ptr, B.ind, beta, descrD, D.nnz, D.ptr, D.ind, info, &out_buffer_size
#define PARAMS_NNZ(A, B, C, D, out_nnz) \
handle, transA, transB, A.m, C.n, A.n, descrA, A.nnz, A.ptr, A.ind, descrB, B.nnz, B.ptr, \
B.ind, descrD, D.nnz, D.ptr, D.ind, descrC, C.ptr, out_nnz, info, dbuffer
#define PARAMS(alpha, beta, A, B, C, D) \
handle, transA, transB, A.m, C.n, A.n, alpha, descrA, A.nnz, A.val, A.ptr, A.ind, descrB, \
B.nnz, B.val, B.ptr, B.ind, beta, descrD, D.nnz, D.val, D.ptr, D.ind, descrC, C.val, \
C.ptr, C.ind, info, dbuffer
#define PARAMS_SYMBOLIC(A, B, C, D) \
handle, transA, transB, A.m, C.n, A.n, descrA, A.nnz, A.ptr, A.ind, descrB, B.nnz, B.ptr, \
B.ind, descrD, D.nnz, D.ptr, D.ind, descrC, C.nnz, C.ptr, C.ind, info, dbuffer
#define PARAMS_NUMERIC(alpha, beta, A, B, C, D) \
handle, transA, transB, A.m, C.n, A.n, alpha, descrA, A.nnz, A.val, A.ptr, A.ind, descrB, \
B.nnz, B.val, B.ptr, B.ind, beta, descrD, D.nnz, D.val, D.ptr, D.ind, descrC, C.nnz, \
C.val, C.ptr, C.ind, info, dbuffer
// 4 Scenarios need to be tested:
// Scenario 1: alpha == nullptr && beta == nullptr
// Scenario 2: alpha != nullptr && beta == nullptr
// Scenario 3: alpha == nullptr && beta != nullptr
// Scenario 4: alpha != nullptr && beta != nullptr
// alpha == -99 means test for alpha == nullptr
// beta == -99 means test for beta == nullptr
testing_csrgemm_scenario scenario = testing_csrgemm_scenario_none;
if(v_alpha != static_cast<T>(-99) && v_beta == static_cast<T>(-99))
{
scenario = testing_csrgemm_scenario_alpha;
}
else if(v_alpha == static_cast<T>(-99) && v_beta != static_cast<T>(-99))
{
scenario = testing_csrgemm_scenario_beta;
}
else if(v_alpha != static_cast<T>(-99) && v_beta != static_cast<T>(-99))
{
scenario = testing_csrgemm_scenario_alpha_and_beta;
}
host_dense_vector<T> h_alpha(0), h_beta(0);
switch(scenario)
{
case testing_csrgemm_scenario_none:
{
break;
}
case testing_csrgemm_scenario_alpha:
{
h_alpha.resize(1);
*h_alpha = v_alpha;
break;
}
case testing_csrgemm_scenario_beta:
{
h_beta.resize(1);
*h_beta = v_beta;
break;
}
case testing_csrgemm_scenario_alpha_and_beta:
{
h_alpha.resize(1);
*h_alpha = v_alpha;
h_beta.resize(1);
*h_beta = v_beta;
break;
}
}
//
// Argument sanity check before allocating invalid memory
//
if((M == 0 || N == 0 || K == 0))
{
device_csr_matrix<T> d_A, d_B, d_C, d_D;
d_A.define(M, K, 0, baseA);
d_B.define(K, N, 0, baseB);
d_C.define(M, N, 0, baseC);
d_D.define(M, N, 0, baseD);
CHECK_ROCSPARSE_ERROR(rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_host));
size_t out_buffer_size;
rocsparse_int out_nnz;
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_buffer_size<T>(
PARAMS_BUFFER_SIZE(h_alpha, h_beta, d_A, d_B, d_C, d_D, out_buffer_size)));
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_nnz(PARAMS_NNZ(d_A, d_B, d_C, d_D, &out_nnz)));
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC(d_A, d_B, d_C, d_D)));
CHECK_ROCSPARSE_ERROR(
rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC(h_alpha, h_beta, d_A, d_B, d_C, d_D)));
}
//
// Declare host objects.
//
host_csr_matrix<T> h_A, h_B, h_C, h_D;
//
// Initialize matrices.
//
{
rocsparse_matrix_factory<T> matrix_factory(arg, arg.timing ? false : true, full_rank);
matrix_factory.init_csr(h_A, M, K, baseA);
switch(scenario)
{
case testing_csrgemm_scenario_none:
{
break;
}
case testing_csrgemm_scenario_alpha:
{
rocsparse_matrix_factory_random<T> rf(full_rank);
{
h_B.base = baseB;
h_B.m = K;
h_B.n = N;
rf.init_csr(h_B.ptr,
h_B.ind,
h_B.val,
h_B.m,
h_B.n,
h_B.nnz,
h_B.base,
rocsparse_matrix_type_general,
rocsparse_fill_mode_lower,
rocsparse_storage_mode_sorted);
}
break;
}
case testing_csrgemm_scenario_beta:
{
matrix_factory.init_csr(h_D, M, N, baseD);
break;
}
case testing_csrgemm_scenario_alpha_and_beta:
{
rocsparse_matrix_factory_random<T> rf(full_rank);
{
h_B.base = baseB;
h_B.m = K;
h_B.n = N;
rf.init_csr(h_B.ptr,
h_B.ind,
h_B.val,
h_B.m,
h_B.n,
h_B.nnz,
h_B.base,
rocsparse_matrix_type_general,
rocsparse_fill_mode_lower,
rocsparse_storage_mode_sorted);
}
{
h_D.base = baseD;
h_D.m = M;
h_D.n = N;
rf.init_csr(h_D.ptr,
h_D.ind,
h_D.val,
h_D.m,
h_D.n,
h_D.nnz,
h_D.base,
rocsparse_matrix_type_general,
rocsparse_fill_mode_lower,
rocsparse_storage_mode_sorted);
}
break;
}
}
h_C.define(M, N, 0, baseC);
}
//
// Declare device objects.
//
device_csr_matrix<T> d_A(h_A), d_B(h_B), d_C(h_C), d_D(h_D);
device_dense_vector<T> d_alpha(h_alpha), d_beta(h_beta);
// Obtain required buffer size
size_t out_buffer_size;
CHECK_ROCSPARSE_ERROR(rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_host));
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_buffer_size<T>(
PARAMS_BUFFER_SIZE(h_alpha, h_beta, d_A, d_B, d_C, d_D, out_buffer_size)));
CHECK_HIP_ERROR(rocsparse_hipMalloc(&dbuffer, out_buffer_size));
if(arg.unit_check)
{
//
// Host calculation.
//
{
rocsparse_int out_nnz;
host_csrgemm_nnz<T, rocsparse_int, rocsparse_int>(h_A.m,
h_C.n,
h_A.n,
h_alpha,
h_A.ptr,
h_A.ind,
h_B.ptr,
h_B.ind,
h_beta,
h_D.ptr,
h_D.ind,
h_C.ptr,
&out_nnz,
h_A.base,
h_B.base,
h_C.base,
h_D.base);
h_C.define(h_C.m, h_C.n, out_nnz, h_C.base);
host_csrgemm<T, rocsparse_int, rocsparse_int>(h_A.m,
h_C.n,
h_A.n,
h_alpha,
h_A.ptr,
h_A.ind,
h_A.val,
h_B.ptr,
h_B.ind,
h_B.val,
h_beta,
h_D.ptr,
h_D.ind,
h_D.val,
h_C.ptr,
h_C.ind,
h_C.val,
h_A.base,
h_B.base,
h_C.base,
h_D.base);
}
{
//
// GPU with pointer mode host
//
rocsparse_int out_nnz;
CHECK_ROCSPARSE_ERROR(rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_host));
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_nnz(PARAMS_NNZ(d_A, d_B, d_C, d_D, &out_nnz)));
d_C.define(d_C.m, d_C.n, out_nnz, d_C.base);
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC(d_A, d_B, d_C, d_D)));
CHECK_ROCSPARSE_ERROR(
rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC(h_alpha, h_beta, d_A, d_B, d_C, d_D)));
if(ROCSPARSE_REPRODUCIBILITY)
{
rocsparse_reproducibility::save("dC pointer mode host", d_C);
}
h_C.near_check(d_C);
}
d_C.define(d_C.m, d_C.n, 0, d_C.base);
{
//
// GPU with pointer mode device
//
device_scalar<rocsparse_int> d_out_nnz;
CHECK_ROCSPARSE_ERROR(
rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_device));
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_nnz(PARAMS_NNZ(d_A, d_B, d_C, d_D, d_out_nnz)));
host_scalar<rocsparse_int> h_out_nnz(d_out_nnz);
d_C.define(d_C.m, d_C.n, *h_out_nnz, d_C.base);
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC(d_A, d_B, d_C, d_D)));
CHECK_ROCSPARSE_ERROR(
rocsparse_csrgemm_numeric<T>(PARAMS_NUMERIC(d_alpha, d_beta, d_A, d_B, d_C, d_D)));
if(ROCSPARSE_REPRODUCIBILITY)
{
rocsparse_reproducibility::save("dC pointer mode device", d_C);
}
h_C.near_check(d_C);
}
}
if(arg.timing)
{
#define ROCSPARSE_TIMER_IN(decl_) double decl_ = get_time_us();
#define ROCSPARSE_TIMER_OUT(decl_) decl_ = (get_time_us() - decl_) / number_hot_calls
int number_cold_calls = 2;
int number_hot_calls = arg.iters;
CHECK_ROCSPARSE_ERROR(rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_host));
rocsparse_int out_nnz;
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_nnz(PARAMS_NNZ(d_A, d_B, d_C, d_D, &out_nnz)));
d_C.define(d_C.m, d_C.n, out_nnz, d_C.base);
//
// WARM UP
//
for(int iter = 0; iter < number_cold_calls; ++iter)
{
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_symbolic(PARAMS_SYMBOLIC(d_A, d_B, d_C, d_D)));
}
ROCSPARSE_TIMER_IN(gpu_num_time_used)
{
for(int iter = 0; iter < number_hot_calls; ++iter)
{
CHECK_ROCSPARSE_ERROR(rocsparse_csrgemm_numeric<T>(
PARAMS_NUMERIC(h_alpha, h_beta, d_A, d_B, d_C, d_D)));
}
}
ROCSPARSE_TIMER_OUT(gpu_num_time_used);
CHECK_HIP_ERROR(hipDeviceSynchronize());
#undef PARAMS
#undef PARAM_NNZ
#undef PARAMS_BUFFER_SIZE
#undef PARAMS_SYMBOLIC
#undef PARAMS_NUMERIC
double gflop_count = csrgemm_gflop_count<T, rocsparse_int, rocsparse_int>(
M, h_alpha, h_A.ptr, h_A.ind, h_B.ptr, h_beta, h_D.ptr, h_A.base);
double gbyte_count = csrgemm_gbyte_count<T, rocsparse_int, rocsparse_int>(
M, N, K, d_A.nnz, d_B.nnz, d_C.nnz, d_D.nnz, h_alpha, h_beta);
double gpu_gflops = get_gpu_gflops(gpu_num_time_used, gflop_count);
double gpu_gbyte = get_gpu_gbyte(gpu_num_time_used, gbyte_count);
char alpha[32], beta[32];
sprintf(alpha, "null");
sprintf(beta, "null");
if(h_alpha.data() != nullptr)
{
std::stringstream ss;
ss << *h_alpha;
sprintf(alpha, "%s", ss.str().c_str());
}
if(h_beta.data() != nullptr)
{
std::stringstream ss;
ss << *h_beta;
sprintf(beta, "%s", ss.str().c_str());
}
display_timing_info(display_key_t::trans_A,
rocsparse_operation2string(transA),
display_key_t::trans_B,
rocsparse_operation2string(transB),
display_key_t::M,
M,
display_key_t::N,
N,
display_key_t::K,
K,
display_key_t::nnz_A,
d_A.nnz,
display_key_t::nnz_B,
d_B.nnz,
display_key_t::nnz_C,
d_C.nnz,
display_key_t::nnz_D,
d_D.nnz,
display_key_t::alpha,
alpha,
display_key_t::beta,
beta,
display_key_t::gflops,
gpu_gflops,
display_key_t::bandwidth,
gpu_gbyte,
display_key_t::time_ms,
get_gpu_time_msec(gpu_num_time_used));
}
// Free buffer
CHECK_HIP_ERROR(rocsparse_hipFree(dbuffer));
}
#define INSTANTIATE(TYPE) \
template void testing_csrgemm_reuse_bad_arg<TYPE>(const Arguments& arg); \
template void testing_csrgemm_reuse<TYPE>(const Arguments& arg)
INSTANTIATE(float);
INSTANTIATE(double);
INSTANTIATE(rocsparse_float_complex);
INSTANTIATE(rocsparse_double_complex);
void testing_csrgemm_reuse_extra(const Arguments& arg) {}