Skip to content

Fix empty prototypes in files converted from Fortran (fixes compilation with GCC15) #5258

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

Merged
martin-frbg merged 2 commits into from
May 11, 2025
Merged

Fix empty prototypes in files converted from Fortran (fixes compilation with GCC15) #5258

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ebbe682
Fix function prototypes
martin-frbg May 10, 2025
0d69a29
Fix empty prototypes of select/selctg
martin-frbg May 10, 2025
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
2 changes: 1 addition & 1 deletion ctest/c_cblat1c.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/cgees.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
{
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/cgeesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
{
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/cgges.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/cgges3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/cggesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dgees.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dgeesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/dgges.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/dgges3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/dggesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgees.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgeesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/sgges.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/sgges3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/sggesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/zgees.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
{
Expand Down
4 changes: 2 additions & 2 deletions lapack-netlib/SRC/zgeesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
5 changes: 3 additions & 2 deletions lapack-netlib/SRC/zgges.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
5 changes: 3 additions & 2 deletions lapack-netlib/SRC/zgges3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
5 changes: 3 additions & 2 deletions lapack-netlib/SRC/zggesx.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *
Expand Down
Loading