@@ -20,7 +20,7 @@ void F77_cgemv(int *order, char *transp, int *m, int *n,
2020 get_transpose_type (transp , & trans );
2121 if (* order == TEST_ROW_MJR ) {
2222 LDA = * n + 1 ;
23- A = (CBLAS_TEST_COMPLEX * )malloc ( (* m )* LDA * sizeof ( CBLAS_TEST_COMPLEX ) );
23+ A = (CBLAS_TEST_COMPLEX * )malloc ( (* m )* ( size_t ) LDA * sizeof ( CBLAS_TEST_COMPLEX ) );
2424 for ( i = 0 ; i < * m ; i ++ )
2525 for ( j = 0 ; j < * n ; j ++ ){
2626 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -50,7 +50,7 @@ void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku,
5050 get_transpose_type (transp , & trans );
5151 if (* order == TEST_ROW_MJR ) {
5252 LDA = * ku + * kl + 2 ;
53- A = ( CBLAS_TEST_COMPLEX * )malloc ((* n + * kl )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
53+ A = ( CBLAS_TEST_COMPLEX * )malloc ((* n + * kl )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
5454 for ( i = 0 ; i < * ku ; i ++ ){
5555 irow = * ku + * kl - i ;
5656 jcol = (* ku )- i ;
@@ -94,7 +94,7 @@ void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
9494
9595 if (* order == TEST_ROW_MJR ) {
9696 LDA = * n + 1 ;
97- A = (CBLAS_TEST_COMPLEX * )malloc ((* m )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
97+ A = (CBLAS_TEST_COMPLEX * )malloc ((* m )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
9898 for ( i = 0 ; i < * m ; i ++ )
9999 for ( j = 0 ; j < * n ; j ++ ){
100100 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -122,7 +122,7 @@ void F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
122122
123123 if (* order == TEST_ROW_MJR ) {
124124 LDA = * n + 1 ;
125- A = (CBLAS_TEST_COMPLEX * )malloc ((* m )* LDA * sizeof (CBLAS_TEST_COMPLEX ) );
125+ A = (CBLAS_TEST_COMPLEX * )malloc ((* m )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ) );
126126 for ( i = 0 ; i < * m ; i ++ )
127127 for ( j = 0 ; j < * n ; j ++ ){
128128 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -154,7 +154,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
154154
155155 if (* order == TEST_ROW_MJR ) {
156156 LDA = * n + 1 ;
157- A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
157+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
158158 for ( i = 0 ; i < * n ; i ++ )
159159 for ( j = 0 ; j < * n ; j ++ ){
160160 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -190,7 +190,7 @@ int i,irow,j,jcol,LDA;
190190 * incx , beta , y , * incy );
191191 else {
192192 LDA = * k + 2 ;
193- A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
193+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
194194 if (uplo == CblasUpper ) {
195195 for ( i = 0 ; i < * k ; i ++ ){
196196 irow = * k - i ;
@@ -251,8 +251,8 @@ void F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
251251 beta , y , * incy );
252252 else {
253253 LDA = * n ;
254- A = (CBLAS_TEST_COMPLEX * )malloc (LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
255- AP = (CBLAS_TEST_COMPLEX * )malloc ( (((LDA + 1 )* LDA )/2 )*
254+ A = (CBLAS_TEST_COMPLEX * )malloc (( size_t ) LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
255+ AP = (CBLAS_TEST_COMPLEX * )malloc ( (((( size_t ) LDA + 1 )* LDA )/2 )*
256256 sizeof ( CBLAS_TEST_COMPLEX ));
257257 if (uplo == CblasUpper ) {
258258 for ( j = 0 , k = 0 ; j < * n ; j ++ )
@@ -311,7 +311,7 @@ void F77_ctbmv(int *order, char *uplow, char *transp, char *diagn,
311311 x , * incx );
312312 else {
313313 LDA = * k + 2 ;
314- A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
314+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
315315 if (uplo == CblasUpper ) {
316316 for ( i = 0 ; i < * k ; i ++ ){
317317 irow = * k - i ;
@@ -375,7 +375,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn,
375375 * incx );
376376 else {
377377 LDA = * k + 2 ;
378- A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
378+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n + * k )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
379379 if (uplo == CblasUpper ) {
380380 for ( i = 0 ; i < * k ; i ++ ){
381381 irow = * k - i ;
@@ -436,8 +436,8 @@ void F77_ctpmv(int *order, char *uplow, char *transp, char *diagn,
436436 cblas_ctpmv ( CblasRowMajor , UNDEFINED , trans , diag , * n , ap , x , * incx );
437437 else {
438438 LDA = * n ;
439- A = (CBLAS_TEST_COMPLEX * )malloc (LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
440- AP = (CBLAS_TEST_COMPLEX * )malloc ((((LDA + 1 )* LDA )/2 )*
439+ A = (CBLAS_TEST_COMPLEX * )malloc (( size_t ) LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
440+ AP = (CBLAS_TEST_COMPLEX * )malloc ((((( size_t ) LDA + 1 )* LDA )/2 )*
441441 sizeof (CBLAS_TEST_COMPLEX ));
442442 if (uplo == CblasUpper ) {
443443 for ( j = 0 , k = 0 ; j < * n ; j ++ )
@@ -491,8 +491,8 @@ void F77_ctpsv(int *order, char *uplow, char *transp, char *diagn,
491491 cblas_ctpsv ( CblasRowMajor , UNDEFINED , trans , diag , * n , ap , x , * incx );
492492 else {
493493 LDA = * n ;
494- A = (CBLAS_TEST_COMPLEX * )malloc (LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
495- AP = (CBLAS_TEST_COMPLEX * )malloc ((((LDA + 1 )* LDA )/2 )*
494+ A = (CBLAS_TEST_COMPLEX * )malloc (( size_t ) LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ));
495+ AP = (CBLAS_TEST_COMPLEX * )malloc ((((( size_t ) LDA + 1 )* LDA )/2 )*
496496 sizeof (CBLAS_TEST_COMPLEX ));
497497 if (uplo == CblasUpper ) {
498498 for ( j = 0 , k = 0 ; j < * n ; j ++ )
@@ -544,7 +544,7 @@ void F77_ctrmv(int *order, char *uplow, char *transp, char *diagn,
544544
545545 if (* order == TEST_ROW_MJR ) {
546546 LDA = * n + 1 ;
547- A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* LDA * sizeof (CBLAS_TEST_COMPLEX ));
547+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ));
548548 for ( i = 0 ; i < * n ; i ++ )
549549 for ( j = 0 ; j < * n ; j ++ ) {
550550 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -573,7 +573,7 @@ void F77_ctrsv(int *order, char *uplow, char *transp, char *diagn,
573573
574574 if (* order == TEST_ROW_MJR ) {
575575 LDA = * n + 1 ;
576- A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* LDA * sizeof (CBLAS_TEST_COMPLEX ) );
576+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ) );
577577 for ( i = 0 ; i < * n ; i ++ )
578578 for ( j = 0 ; j < * n ; j ++ ) {
579579 A [ LDA * i + j ].real = a [ (* lda )* j + i ].real ;
@@ -601,8 +601,8 @@ void F77_chpr(int *order, char *uplow, int *n, float *alpha,
601601 cblas_chpr (CblasRowMajor , UNDEFINED , * n , * alpha , x , * incx , ap );
602602 else {
603603 LDA = * n ;
604- A = (CBLAS_TEST_COMPLEX * )malloc (LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ) );
605- AP = ( CBLAS_TEST_COMPLEX * )malloc ( (((LDA + 1 )* LDA )/2 )*
604+ A = (CBLAS_TEST_COMPLEX * )malloc (( size_t ) LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ) );
605+ AP = ( CBLAS_TEST_COMPLEX * )malloc ( (((( size_t ) LDA + 1 )* LDA )/2 )*
606606 sizeof ( CBLAS_TEST_COMPLEX ));
607607 if (uplo == CblasUpper ) {
608608 for ( j = 0 , k = 0 ; j < * n ; j ++ )
@@ -678,8 +678,8 @@ void F77_chpr2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
678678 * incy , ap );
679679 else {
680680 LDA = * n ;
681- A = (CBLAS_TEST_COMPLEX * )malloc ( LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ) );
682- AP = (CBLAS_TEST_COMPLEX * )malloc ( (((LDA + 1 )* LDA )/2 )*
681+ A = (CBLAS_TEST_COMPLEX * )malloc ( ( size_t ) LDA * LDA * sizeof (CBLAS_TEST_COMPLEX ) );
682+ AP = (CBLAS_TEST_COMPLEX * )malloc ( (((( size_t ) LDA + 1 )* LDA )/2 )*
683683 sizeof ( CBLAS_TEST_COMPLEX ));
684684 if (uplo == CblasUpper ) {
685685 for ( j = 0 , k = 0 ; j < * n ; j ++ )
@@ -750,7 +750,7 @@ void F77_cher(int *order, char *uplow, int *n, float *alpha,
750750
751751 if (* order == TEST_ROW_MJR ) {
752752 LDA = * n + 1 ;
753- A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* LDA * sizeof ( CBLAS_TEST_COMPLEX ));
753+ A = (CBLAS_TEST_COMPLEX * )malloc ((* n )* ( size_t ) LDA * sizeof ( CBLAS_TEST_COMPLEX ));
754754
755755 for ( i = 0 ; i < * n ; i ++ )
756756 for ( j = 0 ; j < * n ; j ++ ) {
@@ -784,7 +784,7 @@ void F77_cher2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
784784
785785 if (* order == TEST_ROW_MJR ) {
786786 LDA = * n + 1 ;
787- A = ( CBLAS_TEST_COMPLEX * )malloc ((* n )* LDA * sizeof (CBLAS_TEST_COMPLEX ) );
787+ A = ( CBLAS_TEST_COMPLEX * )malloc ((* n )* ( size_t ) LDA * sizeof (CBLAS_TEST_COMPLEX ) );
788788
789789 for ( i = 0 ; i < * n ; i ++ )
790790 for ( j = 0 ; j < * n ; j ++ ) {
0 commit comments