OpenMathLib/OpenBLAS
1
0
Fork 0
mirror of https://github.com/OpenMathLib/OpenBLAS synced 2026-05-31 00:45:48 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge pull request #5258 from martin-frbg/issue5255

Browse Source 
Fix empty prototypes in files converted from Fortran (fixes compilation with GCC15)
This commit is contained in:
Martin Kroeker
2025-05-11 00:23:28 -07:00
committed by GitHub
parent 5141a90993 0d69a2930d
commit cf9e34c1f4
21 changed files with 40 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ctest/c_cblat1c.c
View File

@@ -440,7 +440,7 @@ static real c_b43 = (float)1.;
extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
static complex mwpcs[5], mwpct[5];
extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
extern /* Subroutine */ int cscaltest_(), itest1_(), stest1_();
extern /* Subroutine */ int cscaltest_(integer*, complex*, complex*, integer*);
static complex cx[8];
extern real scnrm2test_(integer*, complex*, integer*);
static integer np1;

4
lapack-netlib/SRC/cgees.c
View File

@@ -710,8 +710,8 @@ or GE matrices</b> */
/* > \ingroup complexGEeigen */
/* ===================================================================== */
/* Subroutine */ void cgees_(char *jobvs, char *sort, L_fp select, integer *n,
complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
/* Subroutine */ void cgees_(char *jobvs, char *sort, logical (*select)(complex*),
integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
bwork, integer *info)
{

4
lapack-netlib/SRC/cgeesx.c
View File

@@ -752,8 +752,8 @@ f"> */
/* > \ingroup complexGEeigen */
/* ===================================================================== */
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, L_fp select, char *
sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, logical (*select)(complex*),
char *sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
work, integer *lwork, real *rwork, logical *bwork, integer *info)
{

4
lapack-netlib/SRC/cgges.c
View File

@@ -784,8 +784,8 @@ or GE matrices</b> */
/* > \ingroup complexGEeigen */
/* ===================================================================== */
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
lwork, real *rwork, logical *bwork, integer *info)

4
lapack-netlib/SRC/cgges3.c
View File

@@ -783,8 +783,8 @@ f"> */
/* > \ingroup complexGEeigen */
/* ===================================================================== */
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
lwork, real *rwork, logical *bwork, integer *info)

4
lapack-netlib/SRC/cggesx.c
View File

@@ -843,8 +843,8 @@ f"> */
/* > \ingroup complexGEeigen */
/* ===================================================================== */
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(complex*,complex*), char *sense, integer *n, complex *a, integer *lda, complex *b,
integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
*rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,

2
lapack-netlib/SRC/dgees.c
View File

@@ -729,7 +729,7 @@ or GE matrices</b> */
/* > \ingroup doubleGEeigen */
/* ===================================================================== */
/* Subroutine */ void dgees_(char *jobvs, char *sort, L_fp select, integer *n,
/* Subroutine */ void dgees_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), integer *n,
doublereal *a, integer *lda, integer *sdim, doublereal *wr,
doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
integer *lwork, logical *bwork, integer *info)

2
lapack-netlib/SRC/dgeesx.c
View File

@@ -793,7 +793,7 @@ f"> */
/* > \ingroup doubleGEeigen */
/* ===================================================================== */
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, L_fp select, char *
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), char *
sense, integer *n, doublereal *a, integer *lda, integer *sdim,
doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
doublereal *rconde, doublereal *rcondv, doublereal *work, integer *

4
lapack-netlib/SRC/dgges.c
View File

@@ -798,8 +798,8 @@ or GE matrices</b> */
/* > \ingroup doubleGEeigen */
/* ===================================================================== */
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, logical
(selctg)(doublereal*, doublereal*, doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

4
lapack-netlib/SRC/dgges3.c
View File

@@ -796,8 +796,8 @@ f"> */
/* > \ingroup doubleGEeigen */
/* ===================================================================== */
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(doublereal*,doublereal*,doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

4
lapack-netlib/SRC/dggesx.c
View File

@@ -878,8 +878,8 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, char *sense, integer *n, doublereal *a, integer *lda,
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(doublereal*,doublereal*,doublereal*), char *sense, integer *n, doublereal *a, integer *lda,
doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *

2
lapack-netlib/SRC/sgees.c
View File

@@ -482,7 +482,7 @@ or GE matrices</b> */
/* > \ingroup realGEeigen */
/* ===================================================================== */
/* Subroutine */ void sgees_(char *jobvs, char *sort, L_fp select, integer *n,
/* Subroutine */ void sgees_(char *jobvs, char *sort, logical(*select)(real*,real*), integer *n,
real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
info)

2
lapack-netlib/SRC/sgeesx.c
View File

@@ -550,7 +550,7 @@ f"> */
/* > \ingroup realGEeigen */
/* ===================================================================== */
/* Subroutine */ void sgeesx_(char *jobvs, char *sort, L_fp select, char *
/* Subroutine */ void sgeesx_(char *jobvs, char *sort, logical(*select)(real*,real*), char *
sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,

4
lapack-netlib/SRC/sgges.c
View File

@@ -555,8 +555,8 @@ or GE matrices</b> */
/* > \ingroup realGEeigen */
/* ===================================================================== */
/* Subroutine */ void sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
/* Subroutine */ void sgges_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(real*,real*,real*), integer *n, real *a, integer *lda, real *b, integer *ldb,
integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
logical *bwork, integer *info)

4
lapack-netlib/SRC/sgges3.c
View File

@@ -553,8 +553,8 @@ f"> */
/* > \ingroup realGEeigen */
/* ===================================================================== */
/* Subroutine */ void sgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
/* Subroutine */ void sgges3_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(real*,real*,real*), integer *n, real *a, integer *lda, real *b, integer *ldb,
integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
logical *bwork, integer *info)

4
lapack-netlib/SRC/sggesx.c
View File

@@ -635,8 +635,8 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ void sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, char *sense, integer *n, real *a, integer *lda, real *b,
/* Subroutine */ void sggesx_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(real*,real*,real*), char *sense, integer *n, real *a, integer *lda, real *b,
integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
real *rcondv, real *work, integer *lwork, integer *iwork, integer *

4
lapack-netlib/SRC/zgees.c
View File

@@ -710,8 +710,8 @@ or GE matrices</b> */
/* > \ingroup complex16GEeigen */
/* ===================================================================== */
/* Subroutine */ void zgees_(char *jobvs, char *sort, L_fp select, integer *n,
doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
/* Subroutine */ void zgees_(char *jobvs, char *sort, logical (*select)(doublecomplex*),
integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
doublereal *rwork, logical *bwork, integer *info)
{

4
lapack-netlib/SRC/zgeesx.c
View File

@@ -751,8 +751,8 @@ f"> */
/* > \ingroup complex16GEeigen */
/* ===================================================================== */
/* Subroutine */ void zgeesx_(char *jobvs, char *sort, L_fp select, char *
sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
/* Subroutine */ void zgeesx_(char *jobvs, char *sort, logical (*select)(doublecomplex*),
char * sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
doublereal *rwork, logical *bwork, integer *info)

5
lapack-netlib/SRC/zgges.c
View File

@@ -784,8 +784,9 @@ or GE matrices</b> */
/* > \ingroup complex16GEeigen */
/* ===================================================================== */
/* Subroutine */ void zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
/* Subroutine */ void zgges_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(doublecomplex*,doublecomplex*), integer *n, doublecomplex *a,
integer *lda, doublecomplex *b,
integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
*ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,

5
lapack-netlib/SRC/zgges3.c
View File

@@ -783,8 +783,9 @@ f"> */
/* > \ingroup complex16GEeigen */
/* ===================================================================== */
/* Subroutine */ void zgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
/* Subroutine */ void zgges3_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(doublecomplex*,doublecomplex*), integer *n, doublecomplex *a,
integer *lda, doublecomplex *b,
integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
*ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,

5
lapack-netlib/SRC/zggesx.c
View File

@@ -843,8 +843,9 @@ f"> */
/* > \ingroup complex16GEeigen */
/* ===================================================================== */
/* Subroutine */ void zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, char *sense, integer *n, doublecomplex *a, integer *lda,
/* Subroutine */ void zggesx_(char *jobvsl, char *jobvsr, char *sort, logical
(*selctg)(doublecomplex*,doublecomplex*), char *sense, integer *n,
doublecomplex *a, integer *lda,
doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *