Skip to content

Commit a077ce6

Browse files
Fix warnings in CBLAS testing and examples
1 parent fc06714 commit a077ce6

File tree

9 files changed

+10
-1
lines changed

9 files changed

+10
-1
lines changed

CBLAS/examples/cblas_example1_64.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -61,7 +61,7 @@ int main ( )
6161
y, incy );
6262
/* Print y */
6363
for( i = 0; i < n; i++ )
64-
printf(" y%" CBLAS_IFMT " = %f\n", i, y[i]);
64+
printf(" y%d = %f\n", (int) i, y[i]);
6565
free(a);
6666
free(x);
6767
free(y);

CBLAS/testing/c_c2chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_c2chke(char *rout

CBLAS/testing/c_c3chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_c3chke(char * rout

CBLAS/testing/c_d2chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_d2chke(char *rout

CBLAS/testing/c_d3chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_d3chke(char *rout

CBLAS/testing/c_s2chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_s2chke(char *rout

CBLAS/testing/c_s3chke.c

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,8 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
30+
2931
}
3032

3133
void F77_s3chke(char *rout

CBLAS/testing/c_z2chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_z2chke(char *rout

CBLAS/testing/c_z3chke.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ void chkxer(void) {
2626
cblas_ok = 0 ;
2727
}
2828
cblas_lerr = 1 ;
29+
link_xerbla = TRUE;
2930
}
3031

3132
void F77_z3chke(char *rout

0 commit comments

Comments
 (0)