Skip to content

Commit f9ea71e

Browse files
grisuthedragongrisuthedragon
committed
Fix missing arguments in tests
1 parent cb81e00 commit f9ea71e

18 files changed

+175
-175
lines changed

‎CBLAS/testing/c_c2chke.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ void F77_xerbla(F77_Char F77_srname, void *vinfo
1313
void F77_xerbla(char *srname, void *vinfo
1414
#endif
1515
#ifdef BLAS_FORTRAN_STRLEN_END
16-
, FORTRAN_STRLEN
16+
, FORTRAN_STRLEN srname_len
1717
#endif
1818
);
1919

@@ -30,7 +30,7 @@ void chkxer(void) {
3030

3131
void F77_c2chke(char *rout
3232
#ifdef BLAS_FORTRAN_STRLEN_END
33-
, FORTRAN_STRLEN
33+
, FORTRAN_STRLEN rout_len
3434
#endif
3535
) {
3636
char *sf = ( rout ) ;

‎CBLAS/testing/c_c3chke.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ void F77_xerbla(F77_Char F77_srname, void *vinfo
1313
void F77_xerbla(char *srname, void *vinfo
1414
#endif
1515
#ifdef BLAS_FORTRAN_STRLEN_END
16-
, FORTRAN_STRLEN
16+
, FORTRAN_STRLEN srname_len
1717
#endif
1818
);
1919

@@ -30,7 +30,7 @@ void chkxer(void) {
3030

3131
void F77_c3chke(char * rout
3232
#ifdef BLAS_FORTRAN_STRLEN_END
33-
, FORTRAN_STRLEN
33+
, FORTRAN_STRLEN rout_len
3434
#endif
3535
) {
3636
char *sf = ( rout ) ;

‎CBLAS/testing/c_cblas2.c

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ void F77_cgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n,
1313
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, const void *x, CBLAS_INT *incx,
1414
const void *beta, void *y, CBLAS_INT *incy
1515
#ifdef BLAS_FORTRAN_STRLEN_END
16-
, FORTRAN_STRLEN
16+
, FORTRAN_STRLEN transp_len
1717
#endif
1818
) {
1919

@@ -47,7 +47,7 @@ void F77_cgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLA
4747
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
4848
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
4949
#ifdef BLAS_FORTRAN_STRLEN_END
50-
, FORTRAN_STRLEN
50+
, FORTRAN_STRLEN transp_len
5151
#endif
5252
) {
5353

@@ -154,7 +154,7 @@ void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
154154
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
155155
CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
156156
#ifdef BLAS_FORTRAN_STRLEN_END
157-
, FORTRAN_STRLEN
157+
, FORTRAN_STRLEN uplow_len
158158
#endif
159159
){
160160

@@ -189,7 +189,7 @@ void F77_chbmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_INT *k,
189189
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta,
190190
CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
191191
#ifdef BLAS_FORTRAN_STRLEN_END
192-
, FORTRAN_STRLEN
192+
, FORTRAN_STRLEN uplow_len
193193
#endif
194194
){
195195

@@ -256,7 +256,7 @@ void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
256256
CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
257257
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
258258
#ifdef BLAS_FORTRAN_STRLEN_END
259-
, FORTRAN_STRLEN
259+
, FORTRAN_STRLEN uplow_len
260260
#endif
261261
){
262262

@@ -316,7 +316,7 @@ void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
316316
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
317317
CBLAS_INT *incx
318318
#ifdef BLAS_FORTRAN_STRLEN_END
319-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
319+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
320320
#endif
321321
) {
322322
CBLAS_TEST_COMPLEX *A;
@@ -383,7 +383,7 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
383383
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
384384
CBLAS_INT *incx
385385
#ifdef BLAS_FORTRAN_STRLEN_END
386-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
386+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
387387
#endif
388388
) {
389389

@@ -450,7 +450,7 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
450450
void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
451451
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
452452
#ifdef BLAS_FORTRAN_STRLEN_END
453-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
453+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len , FORTRAN_STRLEN diagn_len
454454
#endif
455455
) {
456456
CBLAS_TEST_COMPLEX *A, *AP;
@@ -509,7 +509,7 @@ void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
509509
void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
510510
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
511511
#ifdef BLAS_FORTRAN_STRLEN_END
512-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
512+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
513513
#endif
514514
) {
515515
CBLAS_TEST_COMPLEX *A, *AP;
@@ -569,7 +569,7 @@ void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
569569
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
570570
CBLAS_INT *incx
571571
#ifdef BLAS_FORTRAN_STRLEN_END
572-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
572+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
573573
#endif
574574
) {
575575
CBLAS_TEST_COMPLEX *A;
@@ -602,7 +602,7 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
602602
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
603603
CBLAS_INT *incx
604604
#ifdef BLAS_FORTRAN_STRLEN_END
605-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
605+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
606606
#endif
607607
) {
608608
CBLAS_TEST_COMPLEX *A;
@@ -635,7 +635,7 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
635635
void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
636636
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *ap
637637
#ifdef BLAS_FORTRAN_STRLEN_END
638-
, FORTRAN_STRLEN
638+
, FORTRAN_STRLEN uplow_len
639639
#endif
640640
) {
641641
CBLAS_TEST_COMPLEX *A, *AP;
@@ -715,7 +715,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
715715
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
716716
CBLAS_TEST_COMPLEX *ap
717717
#ifdef BLAS_FORTRAN_STRLEN_END
718-
, FORTRAN_STRLEN
718+
, FORTRAN_STRLEN uplow_len
719719
#endif
720720
) {
721721
CBLAS_TEST_COMPLEX *A, *AP;
@@ -795,7 +795,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
795795
void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
796796
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
797797
#ifdef BLAS_FORTRAN_STRLEN_END
798-
, FORTRAN_STRLEN
798+
, FORTRAN_STRLEN uplow_len
799799
#endif
800800
) {
801801
CBLAS_TEST_COMPLEX *A;
@@ -832,7 +832,7 @@ void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
832832
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
833833
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
834834
#ifdef BLAS_FORTRAN_STRLEN_END
835-
, FORTRAN_STRLEN
835+
, FORTRAN_STRLEN uplow_len
836836
#endif
837837
) {
838838

‎CBLAS/testing/c_cblas3.c

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB
1616
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
1717
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
1818
#ifdef BLAS_FORTRAN_STRLEN_END
19-
, FORTRAN_STRLEN, FORTRAN_STRLEN
19+
, FORTRAN_STRLEN transpa_len, FORTRAN_STRLEN transpb_len
2020
#endif
2121
) {
2222

@@ -177,7 +177,7 @@ void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
177177
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
178178
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
179179
#ifdef BLAS_FORTRAN_STRLEN_END
180-
, FORTRAN_STRLEN, FORTRAN_STRLEN
180+
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len
181181
#endif
182182
) {
183183

@@ -245,7 +245,7 @@ void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
245245
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
246246
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
247247
#ifdef BLAS_FORTRAN_STRLEN_END
248-
, FORTRAN_STRLEN, FORTRAN_STRLEN
248+
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len
249249
#endif
250250
) {
251251

@@ -303,7 +303,7 @@ void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
303303
float *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
304304
float *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
305305
#ifdef BLAS_FORTRAN_STRLEN_END
306-
, FORTRAN_STRLEN, FORTRAN_STRLEN
306+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
307307
#endif
308308
) {
309309

@@ -363,7 +363,7 @@ void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
363363
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
364364
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
365365
#ifdef BLAS_FORTRAN_STRLEN_END
366-
, FORTRAN_STRLEN, FORTRAN_STRLEN
366+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
367367
#endif
368368
) {
369369

@@ -423,7 +423,7 @@ void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
423423
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, float *beta,
424424
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
425425
#ifdef BLAS_FORTRAN_STRLEN_END
426-
, FORTRAN_STRLEN, FORTRAN_STRLEN
426+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
427427
#endif
428428
) {
429429
CBLAS_INT i,j,LDA,LDB,LDC;
@@ -491,7 +491,7 @@ void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
491491
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
492492
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
493493
#ifdef BLAS_FORTRAN_STRLEN_END
494-
, FORTRAN_STRLEN, FORTRAN_STRLEN
494+
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
495495
#endif
496496
) {
497497
CBLAS_INT i,j,LDA,LDB,LDC;
@@ -558,7 +558,7 @@ void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d
558558
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
559559
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
560560
#ifdef BLAS_FORTRAN_STRLEN_END
561-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
561+
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
562562
#endif
563563
) {
564564
CBLAS_INT i,j,LDA,LDB;
@@ -621,7 +621,7 @@ void F77_ctrsm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d
621621
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
622622
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
623623
#ifdef BLAS_FORTRAN_STRLEN_END
624-
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
624+
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
625625
#endif
626626
) {
627627
CBLAS_INT i,j,LDA,LDB;

0 commit comments

Comments
 (0)