Skip to content

Fix compilation and linking of the ctests on Windows/LLVM19 #4980

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
martin-frbg wants to merge 1 commit into from
Closed

Fix compilation and linking of the ctests on Windows/LLVM19 #4980

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions ctest/c_c2chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,11 @@ void F77_c2chke(char *rout) {
BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_c3chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,11 @@ void F77_c3chke(char * rout) {
BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

cblas_ok = TRUE ;
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_d2chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,11 @@ void F77_d2chke(char *rout) {
Y[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_d3chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,11 @@ void F77_d3chke(char *rout) {
C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_s2chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,11 @@ void F77_s2chke(char *rout) {
Y[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_s3chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,11 @@ void F77_s3chke(char *rout) {
C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_xerbla.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,11 @@ void cblas_xerbla(blasint info, char *rout, char *form, ...)
{
extern int cblas_lerr, cblas_info, cblas_ok;
extern int link_xerbla;
#ifdef OS_WINDOWS
extern __declspec(selectany) int RowMajorStrg;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

/* Initially, c__3chke will call this routine with
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_z2chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,11 @@ void F77_z2chke(char *rout) {
BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

if (link_xerbla) /* call these first to link */
Expand Down
4 changes: 4 additions & 0 deletions ctest/c_z3chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,11 @@ void F77_z3chke(char * rout) {
BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
#ifdef OS_WINDOWS
int RowMajorStrg = TRUE;
#else
extern int RowMajorStrg;
#endif
extern char *cblas_rout;

cblas_ok = TRUE ;
Expand Down
Loading