From e1f1dea50e8083b293eacef3c2b826c52e54a6e9 Mon Sep 17 00:00:00 2001
From: Florent Pruvost <florent.pruvost@inria.fr>
Date: Fri, 24 Jan 2025 13:52:19 +0100
Subject: [PATCH] testing: cast matrices size multiplication to size_t to avoid
int overflow
---
testing/testing_zcesca.c | 2 +-
testing/testing_zcheck_aux.c | 14 +++++++-------
testing/testing_zcheck_blas.c | 22 +++++++++++-----------
testing/testing_zcheck_svd.c | 4 ++--
testing/testing_zgeadd.c | 6 +++---
testing/testing_zgelqf.c | 6 +++---
testing/testing_zgelqf_hqr.c | 6 +++---
testing/testing_zgels.c | 8 ++++----
testing/testing_zgels_hqr.c | 8 ++++----
testing/testing_zgemm.c | 8 ++++----
testing/testing_zgenm2.c | 2 +-
testing/testing_zgepdf_qdwh.c | 6 +++---
testing/testing_zgeqrf.c | 6 +++---
testing/testing_zgeqrf_hqr.c | 6 +++---
testing/testing_zgesv_nopiv.c | 8 ++++----
testing/testing_zgesvd.c | 12 ++++++------
testing/testing_zgetrf.c | 4 ++--
testing/testing_zgetrf_nopiv.c | 4 ++--
testing/testing_zgetrs_nopiv.c | 8 ++++----
testing/testing_zgram.c | 2 +-
testing/testing_zhemm.c | 8 ++++----
testing/testing_zher2k.c | 8 ++++----
testing/testing_zherk.c | 6 +++---
testing/testing_zlacpy.c | 4 ++--
testing/testing_zlange.c | 2 +-
testing/testing_zlanhe.c | 2 +-
testing/testing_zlansy.c | 2 +-
testing/testing_zlantr.c | 2 +-
testing/testing_zlascal.c | 2 +-
testing/testing_zlauum.c | 4 ++--
testing/testing_zpoinv.c | 4 ++--
testing/testing_zposv.c | 8 ++++----
testing/testing_zpotrf.c | 4 ++--
testing/testing_zpotri.c | 4 ++--
testing/testing_zpotrs.c | 8 ++++----
testing/testing_zsymm.c | 8 ++++----
testing/testing_zsyr2k.c | 8 ++++----
testing/testing_zsyrk.c | 6 +++---
testing/testing_zsysv.c | 8 ++++----
testing/testing_zsytrf.c | 4 ++--
testing/testing_zsytrs.c | 8 ++++----
testing/testing_ztradd.c | 6 +++---
testing/testing_ztrmm.c | 6 +++---
testing/testing_ztrsm.c | 6 +++---
testing/testing_ztrtri.c | 4 ++--
testing/testing_zunglq.c | 6 +++---
testing/testing_zunglq_hqr.c | 6 +++---
testing/testing_zungqr.c | 6 +++---
testing/testing_zungqr_hqr.c | 6 +++---
testing/testing_zunmlq.c | 8 ++++----
testing/testing_zunmlq_hqr.c | 8 ++++----
testing/testing_zunmqr.c | 8 ++++----
testing/testing_zunmqr_hqr.c | 8 ++++----
53 files changed, 165 insertions(+), 165 deletions(-)
diff --git a/testing/testing_zcesca.c b/testing/testing_zcesca.c
index 25c0b6631..11c13503f 100644
--- a/testing/testing_zcesca.c
+++ b/testing/testing_zcesca.c
@@ -112,7 +112,7 @@ testing_zcesca_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Create the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrix with random values */
CHAMELEON_zplrnt( M, N, A, LDA, seedA );
diff --git a/testing/testing_zcheck_aux.c b/testing/testing_zcheck_aux.c
index 98ec027e8..1c898a09b 100644
--- a/testing/testing_zcheck_aux.c
+++ b/testing/testing_zcheck_aux.c
@@ -83,7 +83,7 @@ int check_zmatrices_std( run_arg_list_t *args, cham_uplo_t uplo, int M, int N, C
double Anorm, Rnorm, result;
cham_fixdbl_t eps = testing_getaccuracy();
- double *work = (double *)malloc( LDA*N*sizeof(double) );
+ double *work = (double *)malloc( (size_t) LDA*N*sizeof(double) );
/* Computes the norms */
if ( uplo == ChamUpperLower ) {
@@ -526,9 +526,9 @@ int check_zsum ( run_arg_list_t *args, cham_uplo_t uplo, cham_trans_t trans, CHA
cham_uplo_t uploA = uplo;
if ( rank == 0 ) {
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- Bref = malloc( LDB*N* sizeof(CHAMELEON_Complex64_t) );
- Bcham = malloc( LDB*N* sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ Bref = malloc( (size_t) LDB*N* sizeof(CHAMELEON_Complex64_t) );
+ Bcham = malloc( (size_t) LDB*N* sizeof(CHAMELEON_Complex64_t) );
}
if ( uplo != ChamUpperLower && trans != ChamNoTrans ) {
@@ -704,8 +704,8 @@ int check_zrankk_std( run_arg_list_t *args, int M, int N, int K, CHAMELEON_Compl
Anorm = LAPACKE_zlange( LAPACK_COL_MAJOR, 'F', M, N, A, LDA );
/* check rank of A using SVD, value K+1 of Sigma must be small enough */
- CHAMELEON_Complex64_t *U = malloc( M * M * sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *VT = malloc( N * N * sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *U = malloc( (size_t) M * M * sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *VT = malloc( (size_t) N * N * sizeof(CHAMELEON_Complex64_t) );
double *S = malloc( minMN * sizeof(double) );
double *work = malloc( minMN * sizeof(double) );
@@ -769,7 +769,7 @@ int check_zrankk( run_arg_list_t *args, int K, CHAM_desc_t *descA )
/* Converts the matrices to LAPACK layout in order to check values on the main process */
CHAMELEON_Complex64_t *A = NULL;
if ( rank == 0 ) {
- A = malloc( M*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) M*N*sizeof(CHAMELEON_Complex64_t) );
}
CHAMELEON_Desc2Lap( ChamUpperLower, descA, A, LDA );
diff --git a/testing/testing_zcheck_blas.c b/testing/testing_zcheck_blas.c
index 52cde8007..88b441a47 100644
--- a/testing/testing_zcheck_blas.c
+++ b/testing/testing_zcheck_blas.c
@@ -432,10 +432,10 @@ int check_zsymm( run_arg_list_t *args, cham_mtxtype_t matrix_type, cham_side_t s
int LDC = M;
if ( rank == 0 ) {
- A = ( CHAMELEON_Complex64_t * ) malloc( LDA*An*sizeof( CHAMELEON_Complex64_t ) );
- B = ( CHAMELEON_Complex64_t * ) malloc( LDB*N *sizeof( CHAMELEON_Complex64_t ) );
- Cref = ( CHAMELEON_Complex64_t * ) malloc( LDC*N *sizeof( CHAMELEON_Complex64_t ) );
- C = ( CHAMELEON_Complex64_t * ) malloc( LDC*N *sizeof( CHAMELEON_Complex64_t ) );
+ A = ( CHAMELEON_Complex64_t * ) malloc( (size_t) LDA*An*sizeof( CHAMELEON_Complex64_t ) );
+ B = ( CHAMELEON_Complex64_t * ) malloc( (size_t) LDB*N *sizeof( CHAMELEON_Complex64_t ) );
+ Cref = ( CHAMELEON_Complex64_t * ) malloc( (size_t) LDC*N *sizeof( CHAMELEON_Complex64_t ) );
+ C = ( CHAMELEON_Complex64_t * ) malloc( (size_t) LDC*N *sizeof( CHAMELEON_Complex64_t ) );
}
/* Creates the LAPACK version of the matrices */
@@ -691,12 +691,12 @@ int check_zsyrk( run_arg_list_t *args, cham_mtxtype_t matrix_type, cham_uplo_t u
LDC = N;
if ( rank == 0 ) {
- A = (CHAMELEON_Complex64_t *)malloc( LDA * An * sizeof(CHAMELEON_Complex64_t) );
+ A = (CHAMELEON_Complex64_t *)malloc( (size_t) LDA * An * sizeof(CHAMELEON_Complex64_t) );
if ( descB != NULL ) {
- B = (CHAMELEON_Complex64_t *)malloc( LDB * Bn * sizeof(CHAMELEON_Complex64_t) );
+ B = (CHAMELEON_Complex64_t *)malloc( (size_t) LDB * Bn * sizeof(CHAMELEON_Complex64_t) );
}
- Cref = (CHAMELEON_Complex64_t *)malloc( LDC * N * sizeof(CHAMELEON_Complex64_t) );
- C = (CHAMELEON_Complex64_t *)malloc( LDC * N * sizeof(CHAMELEON_Complex64_t) );
+ Cref = (CHAMELEON_Complex64_t *)malloc( (size_t) LDC * N * sizeof(CHAMELEON_Complex64_t) );
+ C = (CHAMELEON_Complex64_t *)malloc( (size_t) LDC * N * sizeof(CHAMELEON_Complex64_t) );
}
/* Creates the LAPACK version of the matrices */
@@ -899,9 +899,9 @@ int check_ztrmm( run_arg_list_t *args, int check_func, cham_side_t side, cham_up
int LDB = M;
if ( rank == 0 ) {
- A = (CHAMELEON_Complex64_t *)malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- Bref = (CHAMELEON_Complex64_t *)malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
- B = (CHAMELEON_Complex64_t *)malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ A = (CHAMELEON_Complex64_t *)malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ Bref = (CHAMELEON_Complex64_t *)malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ B = (CHAMELEON_Complex64_t *)malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
}
/* Creates the LAPACK version of the matrices */
diff --git a/testing/testing_zcheck_svd.c b/testing/testing_zcheck_svd.c
index 5bd747222..cfcfece9f 100644
--- a/testing/testing_zcheck_svd.c
+++ b/testing/testing_zcheck_svd.c
@@ -236,8 +236,8 @@ int check_zgesvd( run_arg_list_t *args, cham_job_t jobu, cham_job_t jobvt, CHAM_
int LDA = descA->lm;
if ( rank == 0 ) {
- Ainit = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ Ainit = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
}
CHAMELEON_zDesc2Lap( ChamUpperLower, descAinit, Ainit, LDA );
diff --git a/testing/testing_zgeadd.c b/testing/testing_zgeadd.c
index 31f0bab8c..244b097ff 100644
--- a/testing/testing_zgeadd.c
+++ b/testing/testing_zgeadd.c
@@ -147,8 +147,8 @@ testing_zgeadd_std( run_arg_list_t *args, int check )
An = (trans == ChamNoTrans)? N : M;
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrix with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -162,7 +162,7 @@ testing_zgeadd_std( run_arg_list_t *args, int check )
/* Check the solution */
if ( check ) {
- CHAMELEON_Complex64_t *B0 = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B0 = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, B0, LDB, seedB );
hres += check_zsum_std( args, ChamUpperLower, trans, M, N, alpha, A, LDA, beta, B0, B, LDB );
diff --git a/testing/testing_zgelqf.c b/testing/testing_zgelqf.c
index a68525605..71df7316e 100644
--- a/testing/testing_zgelqf.c
+++ b/testing/testing_zgelqf.c
@@ -135,7 +135,7 @@ testing_zgelqf_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descT, P, Q );
/* Fills the matrix with random values */
@@ -149,8 +149,8 @@ testing_zgelqf_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *Qlap = malloc( N*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) N*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
diff --git a/testing/testing_zgelqf_hqr.c b/testing/testing_zgelqf_hqr.c
index ae3b805eb..59fedc2d4 100644
--- a/testing/testing_zgelqf_hqr.c
+++ b/testing/testing_zgelqf_hqr.c
@@ -144,7 +144,7 @@ testing_zgelqf_hqr_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_INNER_BLOCK_SIZE, ib );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTT, P, Q );
@@ -167,8 +167,8 @@ testing_zgelqf_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *Qlap = malloc( N*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) N*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c
index 5a8caa565..09f5985ab 100644
--- a/testing/testing_zgels.c
+++ b/testing/testing_zgels.c
@@ -181,8 +181,8 @@ testing_zgels_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descT, P, Q );
/* Fills the matrix with random values */
@@ -198,8 +198,8 @@ testing_zgels_std( run_arg_list_t *args, int check )
if ( check ) {
CHAMELEON_Complex64_t *A0, *B;
- A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
CHAMELEON_zplrnt( maxMN, NRHS, B, LDB, seedB );
diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c
index 2d240c4bf..3ce803323 100644
--- a/testing/testing_zgels_hqr.c
+++ b/testing/testing_zgels_hqr.c
@@ -184,8 +184,8 @@ testing_zgels_hqr_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_INNER_BLOCK_SIZE, ib );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTT, P, Q );
@@ -211,8 +211,8 @@ testing_zgels_hqr_std( run_arg_list_t *args, int check )
if ( check ) {
CHAMELEON_Complex64_t *A0, *B;
- A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
CHAMELEON_zplrnt( maxMN, NRHS, B, LDB, seedB );
diff --git a/testing/testing_zgemm.c b/testing/testing_zgemm.c
index c0ff6b64e..fa31d578d 100644
--- a/testing/testing_zgemm.c
+++ b/testing/testing_zgemm.c
@@ -184,9 +184,9 @@ testing_zgemm_std( run_arg_list_t *args, int check )
}
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrices with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -222,7 +222,7 @@ testing_zgemm_std( run_arg_list_t *args, int check )
/* Check the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, Cinit, LDC, seedC );
hres += check_zgemm_std( args, transA, transB, alpha, M, N, K, A, LDA, B, LDB, beta, Cinit, C, LDC );
diff --git a/testing/testing_zgenm2.c b/testing/testing_zgenm2.c
index 3a1b87d65..0751ca971 100644
--- a/testing/testing_zgenm2.c
+++ b/testing/testing_zgenm2.c
@@ -168,7 +168,7 @@ testing_zgenm2_std( run_arg_list_t *args, int check )
#endif
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
hres = CHAMELEON_zlatms( M, N, ChamDistUniform, seedA, ChamNonsymPosv, D, 0, cond, 0., A, LDA );
diff --git a/testing/testing_zgepdf_qdwh.c b/testing/testing_zgepdf_qdwh.c
index ea59e36a4..d6896c5e3 100644
--- a/testing/testing_zgepdf_qdwh.c
+++ b/testing/testing_zgepdf_qdwh.c
@@ -162,8 +162,8 @@ testing_zgepdf_qdwh_std( run_arg_list_t *args, int check )
}
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
- H = malloc( LDB*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ H = malloc( (size_t) LDB*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
hres = CHAMELEON_zlatms( M, N, ChamDistUniform, seedA, ChamNonsymPosv, NULL, mode, cond, 1., A, LDA );
@@ -178,7 +178,7 @@ testing_zgepdf_qdwh_std( run_arg_list_t *args, int check )
* with the call to CHAMELEON_zgepdf_qdwh).
*/
if ( check ) {
- A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zlacpy( ChamUpperLower, M, N, A, LDA, A0, LDA );
}
diff --git a/testing/testing_zgeqrf.c b/testing/testing_zgeqrf.c
index 4971e6aa2..53c593ad4 100644
--- a/testing/testing_zgeqrf.c
+++ b/testing/testing_zgeqrf.c
@@ -135,7 +135,7 @@ testing_zgeqrf_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descT, P, Q );
/* Fills the matrix with random values */
@@ -149,8 +149,8 @@ testing_zgeqrf_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *Qlap = malloc( M*M*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) M*M*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
diff --git a/testing/testing_zgeqrf_hqr.c b/testing/testing_zgeqrf_hqr.c
index a1519bf7a..42a4f209d 100644
--- a/testing/testing_zgeqrf_hqr.c
+++ b/testing/testing_zgeqrf_hqr.c
@@ -144,7 +144,7 @@ testing_zgeqrf_hqr_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_INNER_BLOCK_SIZE, ib );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( M, N, &descTT, P, Q );
@@ -167,8 +167,8 @@ testing_zgeqrf_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *Qlap = malloc( M*M*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) M*M*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
diff --git a/testing/testing_zgesv_nopiv.c b/testing/testing_zgesv_nopiv.c
index d1fd9b1df..46e946d9d 100644
--- a/testing/testing_zgesv_nopiv.c
+++ b/testing/testing_zgesv_nopiv.c
@@ -124,8 +124,8 @@ testing_zgesv_nopiv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgtr( 0, ChamUpper, N, N, A, LDA, seedA );
@@ -142,8 +142,8 @@ testing_zgesv_nopiv_std( run_arg_list_t *args, int check )
if ( check ) {
CHAMELEON_Complex64_t *A0, *B;
- A0 = malloc( LDA*N *sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N *sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgtr( 0, ChamUpper, N, N, A0, LDA, seedA );
CHAMELEON_zplgtr( bump, ChamLower, N, N, A0, LDA, seedA+1 );
CHAMELEON_zplrnt( N, NRHS, B, LDB, seedB );
diff --git a/testing/testing_zgesvd.c b/testing/testing_zgesvd.c
index 0997b8a92..ae5602c18 100644
--- a/testing/testing_zgesvd.c
+++ b/testing/testing_zgesvd.c
@@ -107,7 +107,7 @@ testing_zgesvd_desc( run_arg_list_t *args, int check )
if ( (jobu == ChamAllVec) || (jobu == ChamSVec) ) {
Un = ( jobu == ChamSVec ) ? K : M;
- U = malloc( LDU*Un*sizeof(CHAMELEON_Complex64_t) );
+ U = malloc( (size_t) LDU*Un*sizeof(CHAMELEON_Complex64_t) );
}
else {
U = NULL;
@@ -115,7 +115,7 @@ testing_zgesvd_desc( run_arg_list_t *args, int check )
if ( (jobvt == ChamAllVec) || (jobvt == ChamSVec) ) {
LDVt = ( jobvt == ChamSVec ) ? K : N;
- Vt = malloc( LDVt*N*sizeof(CHAMELEON_Complex64_t) );
+ Vt = malloc( (size_t) LDVt*N*sizeof(CHAMELEON_Complex64_t) );
}
else {
Vt = NULL;
@@ -212,12 +212,12 @@ testing_zgesvd_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgesvd( M, N, &descT, 1, 1 );
if ( (jobu == ChamAllVec) || (jobu == ChamSVec) ) {
Un = ( jobu == ChamSVec ) ? K : M;
- U = malloc( LDU*Un*sizeof(CHAMELEON_Complex64_t) );
+ U = malloc( (size_t) LDU*Un*sizeof(CHAMELEON_Complex64_t) );
}
else {
U = NULL;
@@ -225,7 +225,7 @@ testing_zgesvd_std( run_arg_list_t *args, int check )
if ( (jobvt == ChamAllVec) || (jobvt == ChamSVec) ) {
LDVt = ( jobvt == ChamSVec ) ? K : N;
- Vt = malloc( LDVt*N*sizeof(CHAMELEON_Complex64_t) );
+ Vt = malloc( (size_t) LDVt*N*sizeof(CHAMELEON_Complex64_t) );
}
else {
Vt = NULL;
@@ -250,7 +250,7 @@ testing_zgesvd_std( run_arg_list_t *args, int check )
* with the call to CHAMELEON_zgepdf_qdwh).
*/
if ( check ) {
- A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zlacpy( ChamUpperLower, M, N, A, LDA, A0, LDA );
}
diff --git a/testing/testing_zgetrf.c b/testing/testing_zgetrf.c
index 9bbc12c3a..310e5f5bf 100644
--- a/testing/testing_zgetrf.c
+++ b/testing/testing_zgetrf.c
@@ -180,7 +180,7 @@ testing_zgetrf_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
IPIV = malloc( minMN * sizeof(int) );
/* Fills the matrix with random values */
@@ -216,7 +216,7 @@ testing_zgetrf_std( run_arg_list_t *args, int check )
#if !defined(CHAMELEON_SIMULATION)
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, A0, LDA, seedA );
/* Compute the permutation of A0: P * A0 */
diff --git a/testing/testing_zgetrf_nopiv.c b/testing/testing_zgetrf_nopiv.c
index 657513eaf..51711401d 100644
--- a/testing/testing_zgetrf_nopiv.c
+++ b/testing/testing_zgetrf_nopiv.c
@@ -100,7 +100,7 @@ testing_zgetrf_nopiv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgtr( 0, ChamUpper, M, N, A, LDA, seedA );
@@ -114,7 +114,7 @@ testing_zgetrf_nopiv_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgtr( 0, ChamUpper, M, N, A0, LDA, seedA );
CHAMELEON_zplgtr( bump, ChamLower, M, N, A0, LDA, seedA+1 );
diff --git a/testing/testing_zgetrs_nopiv.c b/testing/testing_zgetrs_nopiv.c
index 4dc3631b4..f75048d01 100644
--- a/testing/testing_zgetrs_nopiv.c
+++ b/testing/testing_zgetrs_nopiv.c
@@ -116,8 +116,8 @@ testing_zgetrs_nopiv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgtr( 0, ChamUpper, N, N, A, LDA, seedA );
@@ -135,8 +135,8 @@ testing_zgetrs_nopiv_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgtr( 0, ChamUpper, N, N, A0, LDA, seedA );
CHAMELEON_zplgtr( bump, ChamLower, N, N, A0, LDA, seedA+1 );
diff --git a/testing/testing_zgram.c b/testing/testing_zgram.c
index 3683d136f..c974d5523 100644
--- a/testing/testing_zgram.c
+++ b/testing/testing_zgram.c
@@ -111,7 +111,7 @@ testing_zgram_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Create the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrix with random values */
CHAMELEON_zplghe( (double)N, uplo, N,A, LDA, seedA );
diff --git a/testing/testing_zhemm.c b/testing/testing_zhemm.c
index c06fa651f..b17d9ea27 100644
--- a/testing/testing_zhemm.c
+++ b/testing/testing_zhemm.c
@@ -163,9 +163,9 @@ testing_zhemm_std( run_arg_list_t *args, int check )
An = ( side == ChamLeft ) ? M : N;
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplghe( bump, uplo, An, A, LDA, seedA );
@@ -201,7 +201,7 @@ testing_zhemm_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, Cinit, LDC, seedC );
hres += check_zsymm_std( args, ChamHermitian, side, uplo, M, N, alpha, A, LDA, B, LDB, beta, Cinit, C, LDC );
diff --git a/testing/testing_zher2k.c b/testing/testing_zher2k.c
index beaadfd6d..5a4d1433f 100644
--- a/testing/testing_zher2k.c
+++ b/testing/testing_zher2k.c
@@ -167,9 +167,9 @@ testing_zher2k_std( run_arg_list_t *args, int check )
}
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrix with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -205,7 +205,7 @@ testing_zher2k_std( run_arg_list_t *args, int check )
/* Check the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( bump, uplo, N, Cinit, LDC, seedC );
hres += check_zsyrk_std( args, ChamHermitian, uplo, trans, N, K, alpha, A, LDA, B, LDB, beta, Cinit, C, LDC );
diff --git a/testing/testing_zherk.c b/testing/testing_zherk.c
index a850a99d2..dd11d04a3 100644
--- a/testing/testing_zherk.c
+++ b/testing/testing_zherk.c
@@ -156,8 +156,8 @@ testing_zherk_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -192,7 +192,7 @@ testing_zherk_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( bump, uplo, N, Cinit, LDC, seedC );
hres += check_zsyrk_std( args, ChamHermitian, uplo, trans, N, K, alpha, A, LDA, NULL, LDA, beta, Cinit, C, LDC );
diff --git a/testing/testing_zlacpy.c b/testing/testing_zlacpy.c
index 5642183e9..6d174ffb1 100644
--- a/testing/testing_zlacpy.c
+++ b/testing/testing_zlacpy.c
@@ -138,8 +138,8 @@ testing_zlacpy_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates two different matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills each matrix with different random values */
CHAMELEON_zplrnt( M, N, A, LDA, seedA );
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index 262367c64..f7dcb8b5e 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -136,7 +136,7 @@ testing_zlange_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( M, N, A, LDA, seedA );
diff --git a/testing/testing_zlanhe.c b/testing/testing_zlanhe.c
index 8115d231b..ceeceba02 100644
--- a/testing/testing_zlanhe.c
+++ b/testing/testing_zlanhe.c
@@ -137,7 +137,7 @@ testing_zlanhe_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplghe( bump, uplo, N, A, LDA, seedA );
diff --git a/testing/testing_zlansy.c b/testing/testing_zlansy.c
index ef637fdae..5cb7507ac 100644
--- a/testing/testing_zlansy.c
+++ b/testing/testing_zlansy.c
@@ -137,7 +137,7 @@ testing_zlansy_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgsy( bump, uplo, N, A, LDA, seedA );
diff --git a/testing/testing_zlantr.c b/testing/testing_zlantr.c
index cc7952cf2..71b8d6dd5 100644
--- a/testing/testing_zlantr.c
+++ b/testing/testing_zlantr.c
@@ -160,7 +160,7 @@ testing_zlantr_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( M, N, A, LDA, seedA );
diff --git a/testing/testing_zlascal.c b/testing/testing_zlascal.c
index 5a5364dca..479a91f32 100644
--- a/testing/testing_zlascal.c
+++ b/testing/testing_zlascal.c
@@ -131,7 +131,7 @@ testing_zlascal_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrix */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( M, N, A, LDA, seedA );
diff --git a/testing/testing_zlauum.c b/testing/testing_zlauum.c
index 117328d56..2899c9dee 100644
--- a/testing/testing_zlauum.c
+++ b/testing/testing_zlauum.c
@@ -106,7 +106,7 @@ testing_zlauum_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Initialises the matrices with the same values */
CHAMELEON_zplghe( 0., uplo, N, A, LDA, seedA );
@@ -133,7 +133,7 @@ testing_zlauum_std( run_arg_list_t *args, int check )
testing_stop( &test_data, flops_zlauum( N ) );
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( 0., uplo, N, A0, LDA, seedA );
hres += check_zlauum_std( args, uplo, N, A0, A, LDA );
diff --git a/testing/testing_zpoinv.c b/testing/testing_zpoinv.c
index 1f487fa95..d6f35a056 100644
--- a/testing/testing_zpoinv.c
+++ b/testing/testing_zpoinv.c
@@ -109,7 +109,7 @@ testing_zpoinv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Create the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Initialise the matrix with the random values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -129,7 +129,7 @@ testing_zpoinv_std( run_arg_list_t *args, int check )
/* Check the inverse */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA * N * sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA * N * sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
hres += check_ztrtri_std( args, ChamHermitian, uplo, ChamNonUnit, N, A0, A, LDA );
diff --git a/testing/testing_zposv.c b/testing/testing_zposv.c
index f231f4a31..368821eed 100644
--- a/testing/testing_zposv.c
+++ b/testing/testing_zposv.c
@@ -131,8 +131,8 @@ testing_zposv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N *sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N *sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -167,8 +167,8 @@ testing_zposv_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Check the factorization */
CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
diff --git a/testing/testing_zpotrf.c b/testing/testing_zpotrf.c
index d083befbc..cf62105cc 100644
--- a/testing/testing_zpotrf.c
+++ b/testing/testing_zpotrf.c
@@ -103,7 +103,7 @@ testing_zpotrf_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -137,7 +137,7 @@ testing_zpotrf_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
hres += check_zxxtrf_std( args, ChamHermitian, uplo, N, N, A0, A, LDA );
diff --git a/testing/testing_zpotri.c b/testing/testing_zpotri.c
index 3afbcfa21..6b3c2fd24 100644
--- a/testing/testing_zpotri.c
+++ b/testing/testing_zpotri.c
@@ -106,7 +106,7 @@ testing_zpotri_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Create the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Initialise the matrix with the random values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -147,7 +147,7 @@ testing_zpotri_std( run_arg_list_t *args, int check )
/* Check the inverse */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
hres += check_ztrtri_std( args, ChamHermitian, uplo, ChamNonUnit, N, A0, A, LDA );
diff --git a/testing/testing_zpotrs.c b/testing/testing_zpotrs.c
index 8bf6420fa..687a3d7c7 100644
--- a/testing/testing_zpotrs.c
+++ b/testing/testing_zpotrs.c
@@ -121,8 +121,8 @@ testing_zpotrs_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -164,8 +164,8 @@ testing_zpotrs_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( (double)N, ChamUpperLower, N, A0, LDA, seedA );
CHAMELEON_zplrnt( N, NRHS, B, LDB, seedB );
diff --git a/testing/testing_zsymm.c b/testing/testing_zsymm.c
index 257b1ae5c..9165b869e 100644
--- a/testing/testing_zsymm.c
+++ b/testing/testing_zsymm.c
@@ -163,9 +163,9 @@ testing_zsymm_std( run_arg_list_t *args, int check )
An = ( side == ChamLeft ) ? M : N;
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgsy( bump, uplo, An, A, LDA, seedA );
@@ -201,7 +201,7 @@ testing_zsymm_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, Cinit, LDC, seedC );
hres += check_zsymm_std( args, ChamSymmetric, side, uplo, M, N, alpha, A, LDA, B, LDB, beta, Cinit, C, LDC );
diff --git a/testing/testing_zsyr2k.c b/testing/testing_zsyr2k.c
index cd9030091..08e7985a8 100644
--- a/testing/testing_zsyr2k.c
+++ b/testing/testing_zsyr2k.c
@@ -167,9 +167,9 @@ testing_zsyr2k_std( run_arg_list_t *args, int check )
}
/* Create the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*Bn*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fill the matrix with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -205,7 +205,7 @@ testing_zsyr2k_std( run_arg_list_t *args, int check )
/* Check the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgsy( bump, uplo, N, Cinit, LDC, seedC );
hres += check_zsyrk_std( args, ChamSymmetric, uplo, trans, N, K, alpha, A, LDA, B, LDB, beta, Cinit, C, LDC );
diff --git a/testing/testing_zsyrk.c b/testing/testing_zsyrk.c
index 6c0de64e3..d182060c8 100644
--- a/testing/testing_zsyrk.c
+++ b/testing/testing_zsyrk.c
@@ -155,8 +155,8 @@ testing_zsyrk_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( Am, An, A, LDA, seedA );
@@ -191,7 +191,7 @@ testing_zsyrk_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Cinit;
- Cinit = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ Cinit = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgsy( bump, uplo, N, Cinit, LDC, seedC );
hres += check_zsyrk_std( args, ChamSymmetric, uplo, trans, N, K, alpha, A, LDA, NULL, LDA, beta, Cinit, C, LDC );
diff --git a/testing/testing_zsysv.c b/testing/testing_zsysv.c
index 4ae24d4fe..35ef84ba0 100644
--- a/testing/testing_zsysv.c
+++ b/testing/testing_zsysv.c
@@ -123,8 +123,8 @@ testing_zsysv_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgsy( (double)N, uplo, N, A, LDA, seedA );
@@ -141,13 +141,13 @@ testing_zsysv_std( run_arg_list_t *args, int check )
CHAMELEON_Complex64_t *A0, *B;
/* Check the factorization */
- A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgsy( (double)N, uplo, N, A0, LDA, seedA );
hres += check_zxxtrf_std( args, ChamSymmetric, uplo, N, N, A0, A, LDA );
/* Check the solve */
- B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( N, NRHS, B, LDB, seedB );
CHAMELEON_zplgsy( (double)N, uplo, N, A0, LDA, seedA );
diff --git a/testing/testing_zsytrf.c b/testing/testing_zsytrf.c
index 0bc75fa82..2d42111fe 100644
--- a/testing/testing_zsytrf.c
+++ b/testing/testing_zsytrf.c
@@ -94,7 +94,7 @@ testing_zsytrf_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgsy( (double)N, uplo, N, A, LDA, seedA );
@@ -107,7 +107,7 @@ testing_zsytrf_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgsy( (double)N, uplo, N, A0, LDA, seedA );
hres += check_zxxtrf_std( args, ChamSymmetric, uplo, N, N, A0, A, LDA );
diff --git a/testing/testing_zsytrs.c b/testing/testing_zsytrs.c
index ed7fa090a..fb7fd0d20 100644
--- a/testing/testing_zsytrs.c
+++ b/testing/testing_zsytrs.c
@@ -113,8 +113,8 @@ testing_zsytrs_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- X = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ X = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplgsy( (double)N, uplo, N, A, LDA, seedA );
@@ -131,8 +131,8 @@ testing_zsytrs_std( run_arg_list_t *args, int check )
/* Checks the factorisation and residue */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N* sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *B = malloc( LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N* sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B = malloc( (size_t) LDB*NRHS*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplgsy( (double)N, uplo, N, A0, LDA, seedA );
CHAMELEON_zplrnt( N, NRHS, B, LDB, seedB );
diff --git a/testing/testing_ztradd.c b/testing/testing_ztradd.c
index 7ea8b8e7b..a3412017b 100644
--- a/testing/testing_ztradd.c
+++ b/testing/testing_ztradd.c
@@ -193,8 +193,8 @@ testing_ztradd_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N* sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N* sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
switch ( uplo ) {
@@ -218,7 +218,7 @@ testing_ztradd_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
- CHAMELEON_Complex64_t *B0 = malloc( LDB*N* sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *B0 = malloc( (size_t) LDB*N* sizeof(CHAMELEON_Complex64_t) );
if ( uplo == ChamUpperLower ) {
CHAMELEON_zplrnt( M, N, B0, LDB, seedB );
diff --git a/testing/testing_ztrmm.c b/testing/testing_ztrmm.c
index 9d4256dc0..d9ecddad6 100644
--- a/testing/testing_ztrmm.c
+++ b/testing/testing_ztrmm.c
@@ -140,8 +140,8 @@ testing_ztrmm_std( run_arg_list_t *args, int check )
An = ( side == ChamLeft ) ? M : N;
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
CHAMELEON_zplrnt( An, An, A, LDA, seedA );
@@ -177,7 +177,7 @@ testing_ztrmm_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Binit;
- Binit = malloc( LDB*N*sizeof(CHAMELEON_Complex64_t) );
+ Binit = malloc( (size_t) LDB*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, Binit, LDB, seedB );
hres += check_ztrmm_std( args, CHECK_TRMM, side, uplo, trans, diag, M, N, alpha, A, LDA, B, Binit, LDB );
diff --git a/testing/testing_ztrsm.c b/testing/testing_ztrsm.c
index bc63e1888..c87f6e9ee 100644
--- a/testing/testing_ztrsm.c
+++ b/testing/testing_ztrsm.c
@@ -132,8 +132,8 @@ testing_ztrsm_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- B = malloc( LDB*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ B = malloc( (size_t) LDB*N *sizeof(CHAMELEON_Complex64_t) );
/* Fills the matrix with random values */
/* We bump a little bit the diagonal to make it stable */
@@ -170,7 +170,7 @@ testing_ztrsm_std( run_arg_list_t *args, int check )
/* Checks the solution */
if ( check ) {
CHAMELEON_Complex64_t *Binit;
- Binit = malloc( LDB*N*sizeof(CHAMELEON_Complex64_t) );
+ Binit = malloc( (size_t) LDB*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, Binit, LDB, seedB );
hres += check_ztrmm_std( args, CHECK_TRSM, side, uplo, trans, diag, M, N, alpha, A, LDA, B, Binit, LDB );
diff --git a/testing/testing_ztrtri.c b/testing/testing_ztrtri.c
index 322935c53..6bf5cec0d 100644
--- a/testing/testing_ztrtri.c
+++ b/testing/testing_ztrtri.c
@@ -102,7 +102,7 @@ testing_ztrtri_std( run_arg_list_t *args, int check )
CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
/* Initialises the matrices with the same values */
CHAMELEON_zplghe( (double)N, uplo, N, A, LDA, seedA );
@@ -130,7 +130,7 @@ testing_ztrtri_std( run_arg_list_t *args, int check )
/* Checks the inverse */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplghe( (double)N, uplo, N, A0, LDA, seedA );
hres += check_ztrtri_std( args, ChamTriangular, uplo, diag, N, A0, A, LDA );
diff --git a/testing/testing_zunglq.c b/testing/testing_zunglq.c
index d631c9506..b38d0374f 100644
--- a/testing/testing_zunglq.c
+++ b/testing/testing_zunglq.c
@@ -165,8 +165,8 @@ testing_zunglq_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
- Qlap = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ Qlap = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( K, N, &descT, P, Q );
/* Fills the matrix with random values */
@@ -187,7 +187,7 @@ testing_zunglq_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( K, N, A0, LDA, seedA );
hres += check_zortho_std( args, M, N, Qlap, LDA );
diff --git a/testing/testing_zunglq_hqr.c b/testing/testing_zunglq_hqr.c
index c099bec59..dcf4f891d 100644
--- a/testing/testing_zunglq_hqr.c
+++ b/testing/testing_zunglq_hqr.c
@@ -175,8 +175,8 @@ testing_zunglq_hqr_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
- Qlap = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ Qlap = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( K, N, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( K, N, &descTT, P, Q );
@@ -208,7 +208,7 @@ testing_zunglq_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( K, N, A0, LDA, seedA );
hres += check_zortho_std( args, M, N, Qlap, LDA );
diff --git a/testing/testing_zungqr.c b/testing/testing_zungqr.c
index 6497ff066..1ec9b5630 100644
--- a/testing/testing_zungqr.c
+++ b/testing/testing_zungqr.c
@@ -165,8 +165,8 @@ testing_zungqr_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
- Qlap = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ Qlap = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, K, &descT, P, Q );
/* Fills the matrix with random values */
@@ -187,7 +187,7 @@ testing_zungqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, K, A0, LDA, seedA );
hres += check_zortho_std( args, M, N, Qlap, LDA );
diff --git a/testing/testing_zungqr_hqr.c b/testing/testing_zungqr_hqr.c
index 3fa7b45d5..bd37dfb94 100644
--- a/testing/testing_zungqr_hqr.c
+++ b/testing/testing_zungqr_hqr.c
@@ -175,8 +175,8 @@ testing_zungqr_hqr_std( run_arg_list_t *args, int check )
}
/* Creates the matrices */
- A = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
- Qlap = malloc( LDA*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ Qlap = malloc( (size_t) LDA*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( M, K, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( M, K, &descTT, P, Q );
@@ -208,7 +208,7 @@ testing_zungqr_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *A0 = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *A0 = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, K, A0, LDA, seedA );
hres += check_zortho_std( args, M, N, Qlap, LDA );
diff --git a/testing/testing_zunmlq.c b/testing/testing_zunmlq.c
index a974be8bf..5dc1b41d4 100644
--- a/testing/testing_zunmlq.c
+++ b/testing/testing_zunmlq.c
@@ -162,8 +162,8 @@ testing_zunmlq_std( run_arg_list_t *args, int check )
An = ( side == ChamLeft ) ? M : N;
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( K, An, &descT, P, Q );
/* Fills the matrix with random values */
@@ -181,8 +181,8 @@ testing_zunmlq_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *C0 = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *Qlap = malloc( An*An*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *C0 = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) An*An*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, C0, LDC, seedC );
CHAMELEON_zunglq( An, An, K, A, LDA, descT, Qlap, An );
diff --git a/testing/testing_zunmlq_hqr.c b/testing/testing_zunmlq_hqr.c
index fbfc8f878..7399d260d 100644
--- a/testing/testing_zunmlq_hqr.c
+++ b/testing/testing_zunmlq_hqr.c
@@ -170,8 +170,8 @@ testing_zunmlq_hqr_std( run_arg_list_t *args, int check )
An = ( side == ChamLeft ) ? M : N;
/* Creates the matrices */
- A = malloc( LDA*An*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N *sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*An*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N *sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( K, An, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( K, An, &descTT, P, Q );
@@ -198,8 +198,8 @@ testing_zunmlq_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *C0 = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *Qlap = malloc( An*An*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *C0 = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) An*An*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, C0, LDC, seedC );
CHAMELEON_zunglq_param( &qrtree, An, An, K, A, LDA, descTS, descTT, Qlap, An );
diff --git a/testing/testing_zunmqr.c b/testing/testing_zunmqr.c
index dc9810200..4217e5919 100644
--- a/testing/testing_zunmqr.c
+++ b/testing/testing_zunmqr.c
@@ -162,8 +162,8 @@ testing_zunmqr_std( run_arg_list_t *args, int check )
Am = ( side == ChamLeft ) ? M : N;
/* Creates the matrices */
- A = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( Am, K, &descT, P, Q );
/* Fills the matrix with random values */
@@ -181,8 +181,8 @@ testing_zunmqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *C0 = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *Qlap = malloc( Am*Am*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *C0 = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) Am*Am*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, C0, LDC, seedC );
CHAMELEON_zungqr( Am, Am, K, A, LDA, descT, Qlap, Am );
diff --git a/testing/testing_zunmqr_hqr.c b/testing/testing_zunmqr_hqr.c
index ed0eb2431..3196b21a4 100644
--- a/testing/testing_zunmqr_hqr.c
+++ b/testing/testing_zunmqr_hqr.c
@@ -170,8 +170,8 @@ testing_zunmqr_hqr_std( run_arg_list_t *args, int check )
Am = ( side == ChamLeft ) ? M : N;
/* Creates the matrices */
- A = malloc( LDA*K*sizeof(CHAMELEON_Complex64_t) );
- C = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ A = malloc( (size_t) LDA*K*sizeof(CHAMELEON_Complex64_t) );
+ C = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_Alloc_Workspace_zgels( Am, K, &descTS, P, Q );
CHAMELEON_Alloc_Workspace_zgels( Am, K, &descTT, P, Q );
@@ -198,8 +198,8 @@ testing_zunmqr_hqr_std( run_arg_list_t *args, int check )
/* Checks the factorisation and orthogonality */
if ( check ) {
- CHAMELEON_Complex64_t *C0 = malloc( LDC*N*sizeof(CHAMELEON_Complex64_t) );
- CHAMELEON_Complex64_t *Qlap = malloc( Am*Am*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *C0 = malloc( (size_t) LDC*N*sizeof(CHAMELEON_Complex64_t) );
+ CHAMELEON_Complex64_t *Qlap = malloc( (size_t) Am*Am*sizeof(CHAMELEON_Complex64_t) );
CHAMELEON_zplrnt( M, N, C0, LDC, seedC );
CHAMELEON_zungqr_param( &qrtree, Am, Am, K, A, LDA, descTS, descTT, Qlap, Am );
--
GitLab