Skip to content

Commit f47a870

Browse files
ACSimon33ACSimon33
committed
Added missing FORTRAN_STRLEN arguments in CBLAS testting framework
1 parent a926c93 commit f47a870

18 files changed

+546
-109
lines changed

‎CBLAS/include/cblas_test.h

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,15 @@
77
#include "cblas.h"
88
#include "cblas_mangling.h"
99

10+
/* It seems all current Fortran compilers put strlen at end.
11+
* Some historical compilers put strlen after the str argument
12+
* or make the str argument into a struct. */
13+
#define BLAS_FORTRAN_STRLEN_END
14+
15+
#ifndef FORTRAN_STRLEN
16+
#define FORTRAN_STRLEN size_t
17+
#endif
18+
1019
#define TRUE 1
1120
#define PASSED 1
1221
#define TEST_ROW_MJR 1

‎CBLAS/testing/c_c2chke.c

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,11 @@ char *cblas_rout;
1010
#ifdef F77_Char
1111
void F77_xerbla(F77_Char F77_srname, void *vinfo);
1212
#else
13-
void F77_xerbla(char *srname, void *vinfo);
13+
void F77_xerbla(char *srname, void *vinfo
14+
#ifdef BLAS_FORTRAN_STRLEN_END
15+
, FORTRAN_STRLEN
16+
#endif
17+
);
1418
#endif
1519

1620
void chkxer(void) {
@@ -24,7 +28,11 @@ void chkxer(void) {
2428
cblas_lerr = 1 ;
2529
}
2630

27-
void F77_c2chke(char *rout) {
31+
void F77_c2chke(char *rout
32+
#ifdef BLAS_FORTRAN_STRLEN_END
33+
, FORTRAN_STRLEN
34+
#endif
35+
) {
2836
char *sf = ( rout ) ;
2937
float A[2] = {0.0,0.0},
3038
X[2] = {0.0,0.0},

‎CBLAS/testing/c_c3chke.c

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,11 @@ char *cblas_rout;
1010
#ifdef F77_Char
1111
void F77_xerbla(F77_Char F77_srname, void *vinfo);
1212
#else
13-
void F77_xerbla(char *srname, void *vinfo);
13+
void F77_xerbla(char *srname, void *vinfo
14+
#ifdef BLAS_FORTRAN_STRLEN_END
15+
, FORTRAN_STRLEN
16+
#endif
17+
);
1418
#endif
1519

1620
void chkxer(void) {
@@ -24,7 +28,11 @@ void chkxer(void) {
2428
cblas_lerr = 1 ;
2529
}
2630

27-
void F77_c3chke(char * rout) {
31+
void F77_c3chke(char * rout
32+
#ifdef BLAS_FORTRAN_STRLEN_END
33+
, FORTRAN_STRLEN
34+
#endif
35+
) {
2836
char *sf = ( rout ) ;
2937
float A[4] = {0.0,0.0,0.0,0.0},
3038
B[4] = {0.0,0.0,0.0,0.0},

‎CBLAS/testing/c_cblas2.c

Lines changed: 75 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,11 @@
1111
void F77_cgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n,
1212
const void *alpha,
1313
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, const void *x, CBLAS_INT *incx,
14-
const void *beta, void *y, CBLAS_INT *incy) {
14+
const void *beta, void *y, CBLAS_INT *incy
15+
#ifdef BLAS_FORTRAN_STRLEN_END
16+
, FORTRAN_STRLEN
17+
#endif
18+
) {
1519

1620
CBLAS_TEST_COMPLEX *A;
1721
CBLAS_INT i,j,LDA;
@@ -41,7 +45,11 @@ void F77_cgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n,
4145
void F77_cgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLAS_INT *kl, CBLAS_INT *ku,
4246
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
4347
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
44-
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy) {
48+
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
49+
#ifdef BLAS_FORTRAN_STRLEN_END
50+
, FORTRAN_STRLEN
51+
#endif
52+
) {
4553

4654
CBLAS_TEST_COMPLEX *A;
4755
CBLAS_INT i,j,irow,jcol,LDA;
@@ -144,7 +152,11 @@ void F77_cgerc(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX
144152

145153
void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha,
146154
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
147-
CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy){
155+
CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
156+
#ifdef BLAS_FORTRAN_STRLEN_END
157+
, FORTRAN_STRLEN
158+
#endif
159+
){
148160

149161
CBLAS_TEST_COMPLEX *A;
150162
CBLAS_INT i,j,LDA;
@@ -175,7 +187,11 @@ void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
175187
void F77_chbmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_INT *k,
176188
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
177189
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta,
178-
CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy){
190+
CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
191+
#ifdef BLAS_FORTRAN_STRLEN_END
192+
, FORTRAN_STRLEN
193+
#endif
194+
){
179195

180196
CBLAS_TEST_COMPLEX *A;
181197
CBLAS_INT i,irow,j,jcol,LDA;
@@ -238,7 +254,11 @@ CBLAS_INT i,irow,j,jcol,LDA;
238254

239255
void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha,
240256
CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
241-
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy){
257+
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
258+
#ifdef BLAS_FORTRAN_STRLEN_END
259+
, FORTRAN_STRLEN
260+
#endif
261+
){
242262

243263
CBLAS_TEST_COMPLEX *A, *AP;
244264
CBLAS_INT i,j,k,LDA;
@@ -294,7 +314,11 @@ void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
294314

295315
void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
296316
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
297-
CBLAS_INT *incx) {
317+
CBLAS_INT *incx
318+
#ifdef BLAS_FORTRAN_STRLEN_END
319+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
320+
#endif
321+
) {
298322
CBLAS_TEST_COMPLEX *A;
299323
CBLAS_INT irow, jcol, i, j, LDA;
300324
CBLAS_TRANSPOSE trans;
@@ -357,7 +381,11 @@ void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
357381

358382
void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
359383
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
360-
CBLAS_INT *incx) {
384+
CBLAS_INT *incx
385+
#ifdef BLAS_FORTRAN_STRLEN_END
386+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
387+
#endif
388+
) {
361389

362390
CBLAS_TEST_COMPLEX *A;
363391
CBLAS_INT irow, jcol, i, j, LDA;
@@ -420,7 +448,11 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
420448
}
421449

422450
void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
423-
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx) {
451+
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
452+
#ifdef BLAS_FORTRAN_STRLEN_END
453+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
454+
#endif
455+
) {
424456
CBLAS_TEST_COMPLEX *A, *AP;
425457
CBLAS_INT i, j, k, LDA;
426458
CBLAS_TRANSPOSE trans;
@@ -475,7 +507,11 @@ void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
475507
}
476508

477509
void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
478-
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx) {
510+
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
511+
#ifdef BLAS_FORTRAN_STRLEN_END
512+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
513+
#endif
514+
) {
479515
CBLAS_TEST_COMPLEX *A, *AP;
480516
CBLAS_INT i, j, k, LDA;
481517
CBLAS_TRANSPOSE trans;
@@ -531,7 +567,11 @@ void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
531567

532568
void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
533569
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
534-
CBLAS_INT *incx) {
570+
CBLAS_INT *incx
571+
#ifdef BLAS_FORTRAN_STRLEN_END
572+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
573+
#endif
574+
) {
535575
CBLAS_TEST_COMPLEX *A;
536576
CBLAS_INT i,j,LDA;
537577
CBLAS_TRANSPOSE trans;
@@ -560,7 +600,11 @@ void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
560600
}
561601
void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
562602
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
563-
CBLAS_INT *incx) {
603+
CBLAS_INT *incx
604+
#ifdef BLAS_FORTRAN_STRLEN_END
605+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
606+
#endif
607+
) {
564608
CBLAS_TEST_COMPLEX *A;
565609
CBLAS_INT i,j,LDA;
566610
CBLAS_TRANSPOSE trans;
@@ -589,7 +633,11 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
589633
}
590634

591635
void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
592-
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *ap) {
636+
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *ap
637+
#ifdef BLAS_FORTRAN_STRLEN_END
638+
, FORTRAN_STRLEN
639+
#endif
640+
) {
593641
CBLAS_TEST_COMPLEX *A, *AP;
594642
CBLAS_INT i,j,k,LDA;
595643
CBLAS_UPLO uplo;
@@ -665,7 +713,11 @@ void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
665713

666714
void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha,
667715
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
668-
CBLAS_TEST_COMPLEX *ap) {
716+
CBLAS_TEST_COMPLEX *ap
717+
#ifdef BLAS_FORTRAN_STRLEN_END
718+
, FORTRAN_STRLEN
719+
#endif
720+
) {
669721
CBLAS_TEST_COMPLEX *A, *AP;
670722
CBLAS_INT i,j,k,LDA;
671723
CBLAS_UPLO uplo;
@@ -741,7 +793,11 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
741793
}
742794

743795
void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
744-
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda) {
796+
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
797+
#ifdef BLAS_FORTRAN_STRLEN_END
798+
, FORTRAN_STRLEN
799+
#endif
800+
) {
745801
CBLAS_TEST_COMPLEX *A;
746802
CBLAS_INT i,j,LDA;
747803
CBLAS_UPLO uplo;
@@ -774,7 +830,11 @@ void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
774830

775831
void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha,
776832
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
777-
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda) {
833+
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
834+
#ifdef BLAS_FORTRAN_STRLEN_END
835+
, FORTRAN_STRLEN
836+
#endif
837+
) {
778838

779839
CBLAS_TEST_COMPLEX *A;
780840
CBLAS_INT i,j,LDA;

‎CBLAS/testing/c_cblas3.c

Lines changed: 47 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,11 @@
1414
void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CBLAS_INT *n,
1515
CBLAS_INT *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
1616
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
17-
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
17+
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
18+
#ifdef BLAS_FORTRAN_STRLEN_END
19+
, FORTRAN_STRLEN, FORTRAN_STRLEN
20+
#endif
21+
) {
1822

1923
CBLAS_TEST_COMPLEX *A, *B, *C;
2024
CBLAS_INT i,j,LDA, LDB, LDC;
@@ -89,8 +93,12 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB
8993
}
9094
void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_INT *n,
9195
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
92-
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
93-
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
96+
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
97+
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
98+
#ifdef BLAS_FORTRAN_STRLEN_END
99+
, FORTRAN_STRLEN, FORTRAN_STRLEN
100+
#endif
101+
) {
94102

95103
CBLAS_TEST_COMPLEX *A, *B, *C;
96104
CBLAS_INT i,j,LDA, LDB, LDC;
@@ -153,8 +161,12 @@ void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
153161
}
154162
void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_INT *n,
155163
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
156-
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
157-
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
164+
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
165+
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
166+
#ifdef BLAS_FORTRAN_STRLEN_END
167+
, FORTRAN_STRLEN, FORTRAN_STRLEN
168+
#endif
169+
) {
158170

159171
CBLAS_TEST_COMPLEX *A, *B, *C;
160172
CBLAS_INT i,j,LDA, LDB, LDC;
@@ -208,7 +220,11 @@ void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
208220

209221
void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k,
210222
float *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
211-
float *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
223+
float *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
224+
#ifdef BLAS_FORTRAN_STRLEN_END
225+
, FORTRAN_STRLEN, FORTRAN_STRLEN
226+
#endif
227+
) {
212228

213229
CBLAS_INT i,j,LDA,LDC;
214230
CBLAS_TEST_COMPLEX *A, *C;
@@ -264,7 +280,11 @@ void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
264280

265281
void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k,
266282
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
267-
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
283+
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
284+
#ifdef BLAS_FORTRAN_STRLEN_END
285+
, FORTRAN_STRLEN, FORTRAN_STRLEN
286+
#endif
287+
) {
268288

269289
CBLAS_INT i,j,LDA,LDC;
270290
CBLAS_TEST_COMPLEX *A, *C;
@@ -320,7 +340,11 @@ void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
320340
void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k,
321341
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
322342
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, float *beta,
323-
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
343+
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
344+
#ifdef BLAS_FORTRAN_STRLEN_END
345+
, FORTRAN_STRLEN, FORTRAN_STRLEN
346+
#endif
347+
) {
324348
CBLAS_INT i,j,LDA,LDB,LDC;
325349
CBLAS_TEST_COMPLEX *A, *B, *C;
326350
CBLAS_UPLO uplo;
@@ -384,7 +408,11 @@ void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
384408
void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k,
385409
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
386410
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
387-
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
411+
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
412+
#ifdef BLAS_FORTRAN_STRLEN_END
413+
, FORTRAN_STRLEN, FORTRAN_STRLEN
414+
#endif
415+
) {
388416
CBLAS_INT i,j,LDA,LDB,LDC;
389417
CBLAS_TEST_COMPLEX *A, *B, *C;
390418
CBLAS_UPLO uplo;
@@ -447,7 +475,11 @@ void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
447475
}
448476
void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *diagn,
449477
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
450-
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb) {
478+
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
479+
#ifdef BLAS_FORTRAN_STRLEN_END
480+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
481+
#endif
482+
) {
451483
CBLAS_INT i,j,LDA,LDB;
452484
CBLAS_TEST_COMPLEX *A, *B;
453485
CBLAS_SIDE side;
@@ -506,7 +538,11 @@ void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d
506538

507539
void F77_ctrsm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *diagn,
508540
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
509-
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb) {
541+
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
542+
#ifdef BLAS_FORTRAN_STRLEN_END
543+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
544+
#endif
545+
) {
510546
CBLAS_INT i,j,LDA,LDB;
511547
CBLAS_TEST_COMPLEX *A, *B;
512548
CBLAS_SIDE side;

0 commit comments

Comments
 (0)