Skip to content

Commit 4f504e0

Browse files
ACSimon33ACSimon33
committed
Fixed use of F77_xerbla in CBLAS testing framework
1 parent f47a870 commit 4f504e0

File tree

9 files changed

+25
-25
lines changed

9 files changed

+25
-25
lines changed

‎CBLAS/testing/c_c2chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -48,7 +48,7 @@ void F77_c2chke(char *rout
4848
if (link_xerbla) /* call these first to link */
4949
{
5050
cblas_xerbla(cblas_info,cblas_rout,"");
51-
F77_xerbla(cblas_rout,&cblas_info);
51+
F77_xerbla(cblas_rout,&cblas_info, 1);
5252
}
5353
#endif
5454

‎CBLAS/testing/c_c3chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -51,7 +51,7 @@ void F77_c3chke(char * rout
5151
if (link_xerbla) /* call these first to link */
5252
{
5353
cblas_xerbla(cblas_info,cblas_rout,"");
54-
F77_xerbla(cblas_rout,&cblas_info);
54+
F77_xerbla(cblas_rout,&cblas_info, 1);
5555
}
5656
#endif
5757

‎CBLAS/testing/c_d2chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -46,7 +46,7 @@ void F77_d2chke(char *rout
4646
if (link_xerbla) /* call these first to link */
4747
{
4848
cblas_xerbla(cblas_info,cblas_rout,"");
49-
F77_xerbla(cblas_rout,&cblas_info);
49+
F77_xerbla(cblas_rout,&cblas_info, 1);
5050
}
5151
#endif
5252

‎CBLAS/testing/c_d3chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -46,7 +46,7 @@ void F77_d3chke(char *rout
4646
if (link_xerbla) /* call these first to link */
4747
{
4848
cblas_xerbla(cblas_info,cblas_rout,"");
49-
F77_xerbla(cblas_rout,&cblas_info);
49+
F77_xerbla(cblas_rout,&cblas_info, 1);
5050
}
5151
#endif
5252

‎CBLAS/testing/c_s2chke.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;

‎CBLAS/testing/c_s3chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -46,7 +46,7 @@ void F77_s3chke(char *rout
4646
if (link_xerbla) /* call these first to link */
4747
{
4848
cblas_xerbla(cblas_info,cblas_rout,"");
49-
F77_xerbla(cblas_rout,&cblas_info);
49+
F77_xerbla(cblas_rout,&cblas_info, 1);
5050
}
5151
#endif
5252

‎CBLAS/testing/c_xerbla.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -85,14 +85,14 @@ void cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...)
8585
}
8686

8787
#ifdef F77_Char
88-
void F77_xerbla(F77_Char F77_srname, void *vinfo)
88+
void F77_xerbla(F77_Char F77_srname, void *vinfo
8989
#else
9090
void F77_xerbla(char *srname, void *vinfo
91+
#endif
9192
#ifdef BLAS_FORTRAN_STRLEN_END
9293
, FORTRAN_STRLEN
9394
#endif
9495
)
95-
#endif
9696
{
9797
#ifdef F77_Char
9898
char *srname;

‎CBLAS/testing/c_z2chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -48,7 +48,7 @@ void F77_z2chke(char *rout
4848
if (link_xerbla) /* call these first to link */
4949
{
5050
cblas_xerbla(cblas_info,cblas_rout,"");
51-
F77_xerbla(cblas_rout,&cblas_info);
51+
F77_xerbla(cblas_rout,&cblas_info, 1);
5252
}
5353
#endif
5454

‎CBLAS/testing/c_z3chke.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,14 +8,14 @@ CBLAS_INT link_xerbla=TRUE;
88
char *cblas_rout;
99

1010
#ifdef F77_Char
11-
void F77_xerbla(F77_Char F77_srname, void *vinfo);
11+
void F77_xerbla(F77_Char F77_srname, void *vinfo
1212
#else
1313
void F77_xerbla(char *srname, void *vinfo
14+
#endif
1415
#ifdef BLAS_FORTRAN_STRLEN_END
1516
, FORTRAN_STRLEN
1617
#endif
1718
);
18-
#endif
1919

2020
void chkxer(void) {
2121
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
@@ -51,7 +51,7 @@ void F77_z3chke(char *rout
5151
if (link_xerbla) /* call these first to link */
5252
{
5353
cblas_xerbla(cblas_info,cblas_rout,"");
54-
F77_xerbla(cblas_rout,&cblas_info);
54+
F77_xerbla(cblas_rout,&cblas_info, 1);
5555
}
5656
#endif
5757

0 commit comments

Comments
 (0)