Skip to content

Commit cf9e34c

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #5258 from martin-frbg/issue5255
Fix empty prototypes in files converted from Fortran (fixes compilation with GCC15)
2 parents 5141a90 + 0d69a29 commit cf9e34c

21 files changed

+40
-37
lines changed

‎ctest/c_cblat1c.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -440,7 +440,7 @@ static real c_b43 = (float)1.;
440440
extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
441441
static complex mwpcs[5], mwpct[5];
442442
extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
443-
extern /* Subroutine */ int cscaltest_(), itest1_(), stest1_();
443+
extern /* Subroutine */ int cscaltest_(integer*, complex*, complex*, integer*);
444444
static complex cx[8];
445445
extern real scnrm2test_(integer*, complex*, integer*);
446446
static integer np1;

‎lapack-netlib/SRC/cgees.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -710,8 +710,8 @@ or GE matrices</b> */
710710
/* > \ingroup complexGEeigen */
711711

712712
/* ===================================================================== */
713-
/* Subroutine */ void cgees_(char *jobvs, char *sort, L_fp select, integer *n,
714-
complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
713+
/* Subroutine */ void cgees_(char *jobvs, char *sort, logical (*select)(complex*),
714+
integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
715715
integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
716716
bwork, integer *info)
717717
{

‎lapack-netlib/SRC/cgeesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -752,8 +752,8 @@ f"> */
752752
/* > \ingroup complexGEeigen */
753753

754754
/* ===================================================================== */
755-
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, L_fp select, char *
756-
sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
755+
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, logical (*select)(complex*),
756+
char *sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
757757
w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
758758
work, integer *lwork, real *rwork, logical *bwork, integer *info)
759759
{

‎lapack-netlib/SRC/cgges.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -784,8 +784,8 @@ or GE matrices</b> */
784784
/* > \ingroup complexGEeigen */
785785

786786
/* ===================================================================== */
787-
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
788-
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
787+
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, logical
788+
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
789789
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
790790
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
791791
lwork, real *rwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/cgges3.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -783,8 +783,8 @@ f"> */
783783
/* > \ingroup complexGEeigen */
784784

785785
/* ===================================================================== */
786-
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
787-
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
786+
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, logical
787+
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
788788
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
789789
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
790790
lwork, real *rwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/cggesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -843,8 +843,8 @@ f"> */
843843
/* > \ingroup complexGEeigen */
844844

845845
/* ===================================================================== */
846-
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
847-
selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
846+
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, logical
847+
(*selctg)(complex*,complex*), char *sense, integer *n, complex *a, integer *lda, complex *b,
848848
integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
849849
vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
850850
*rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,

‎lapack-netlib/SRC/dgees.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -729,7 +729,7 @@ or GE matrices</b> */
729729
/* > \ingroup doubleGEeigen */
730730

731731
/* ===================================================================== */
732-
/* Subroutine */ void dgees_(char *jobvs, char *sort, L_fp select, integer *n,
732+
/* Subroutine */ void dgees_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), integer *n,
733733
doublereal *a, integer *lda, integer *sdim, doublereal *wr,
734734
doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
735735
integer *lwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/dgeesx.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -793,7 +793,7 @@ f"> */
793793
/* > \ingroup doubleGEeigen */
794794

795795
/* ===================================================================== */
796-
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, L_fp select, char *
796+
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), char *
797797
sense, integer *n, doublereal *a, integer *lda, integer *sdim,
798798
doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
799799
doublereal *rconde, doublereal *rcondv, doublereal *work, integer *

‎lapack-netlib/SRC/dgges.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -798,8 +798,8 @@ or GE matrices</b> */
798798
/* > \ingroup doubleGEeigen */
799799

800800
/* ===================================================================== */
801-
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
802-
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
801+
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, logical
802+
(selctg)(doublereal*, doublereal*, doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
803803
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
804804
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
805805
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

‎lapack-netlib/SRC/dgges3.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -796,8 +796,8 @@ f"> */
796796
/* > \ingroup doubleGEeigen */
797797

798798
/* ===================================================================== */
799-
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
800-
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
799+
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, logical
800+
(*selctg)(doublereal*,doublereal*,doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
801801
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
802802
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
803803
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

‎lapack-netlib/SRC/dggesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -878,8 +878,8 @@ f"> */
878878
/* > \endverbatim */
879879
/* > */
880880
/* ===================================================================== */
881-
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
882-
selctg, char *sense, integer *n, doublereal *a, integer *lda,
881+
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, logical
882+
(*selctg)(doublereal*,doublereal*,doublereal*), char *sense, integer *n, doublereal *a, integer *lda,
883883
doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
884884
doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
885885
doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *

‎lapack-netlib/SRC/sgees.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -482,7 +482,7 @@ or GE matrices</b> */
482482
/* > \ingroup realGEeigen */
483483

484484
/* ===================================================================== */
485-
/* Subroutine */ void sgees_(char *jobvs, char *sort, L_fp select, integer *n,
485+
/* Subroutine */ void sgees_(char *jobvs, char *sort, logical(*select)(real*,real*), integer *n,
486486
real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
487487
integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
488488
info)

‎lapack-netlib/SRC/sgeesx.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -550,7 +550,7 @@ f"> */
550550
/* > \ingroup realGEeigen */
551551

552552
/* ===================================================================== */
553-
/* Subroutine */ void sgeesx_(char *jobvs, char *sort, L_fp select, char *
553+
/* Subroutine */ void sgeesx_(char *jobvs, char *sort, logical(*select)(real*,real*), char *
554554
sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
555555
real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
556556
work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,

‎lapack-netlib/SRC/sgges.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -555,8 +555,8 @@ or GE matrices</b> */
555555
/* > \ingroup realGEeigen */
556556

557557
/* ===================================================================== */
558-
/* Subroutine */ void sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
559-
selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
558+
/* Subroutine */ void sgges_(char *jobvsl, char *jobvsr, char *sort, logical
559+
(*selctg)(real*,real*,real*), integer *n, real *a, integer *lda, real *b, integer *ldb,
560560
integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
561561
integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
562562
logical *bwork, integer *info)

‎lapack-netlib/SRC/sgges3.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -553,8 +553,8 @@ f"> */
553553
/* > \ingroup realGEeigen */
554554

555555
/* ===================================================================== */
556-
/* Subroutine */ void sgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
557-
selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
556+
/* Subroutine */ void sgges3_(char *jobvsl, char *jobvsr, char *sort, logical
557+
(*selctg)(real*,real*,real*), integer *n, real *a, integer *lda, real *b, integer *ldb,
558558
integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
559559
integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
560560
logical *bwork, integer *info)

‎lapack-netlib/SRC/sggesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -635,8 +635,8 @@ f"> */
635635
/* > \endverbatim */
636636
/* > */
637637
/* ===================================================================== */
638-
/* Subroutine */ void sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
639-
selctg, char *sense, integer *n, real *a, integer *lda, real *b,
638+
/* Subroutine */ void sggesx_(char *jobvsl, char *jobvsr, char *sort, logical
639+
(*selctg)(real*,real*,real*), char *sense, integer *n, real *a, integer *lda, real *b,
640640
integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
641641
real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
642642
real *rcondv, real *work, integer *lwork, integer *iwork, integer *

‎lapack-netlib/SRC/zgees.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -710,8 +710,8 @@ or GE matrices</b> */
710710
/* > \ingroup complex16GEeigen */
711711

712712
/* ===================================================================== */
713-
/* Subroutine */ void zgees_(char *jobvs, char *sort, L_fp select, integer *n,
714-
doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
713+
/* Subroutine */ void zgees_(char *jobvs, char *sort, logical (*select)(doublecomplex*),
714+
integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
715715
doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
716716
doublereal *rwork, logical *bwork, integer *info)
717717
{

‎lapack-netlib/SRC/zgeesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -751,8 +751,8 @@ f"> */
751751
/* > \ingroup complex16GEeigen */
752752

753753
/* ===================================================================== */
754-
/* Subroutine */ void zgeesx_(char *jobvs, char *sort, L_fp select, char *
755-
sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
754+
/* Subroutine */ void zgeesx_(char *jobvs, char *sort, logical (*select)(doublecomplex*),
755+
char * sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
756756
doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
757757
rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
758758
doublereal *rwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/zgges.c

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -784,8 +784,9 @@ or GE matrices</b> */
784784
/* > \ingroup complex16GEeigen */
785785

786786
/* ===================================================================== */
787-
/* Subroutine */ void zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
788-
selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
787+
/* Subroutine */ void zgges_(char *jobvsl, char *jobvsr, char *sort, logical
788+
(*selctg)(doublecomplex*,doublecomplex*), integer *n, doublecomplex *a,
789+
integer *lda, doublecomplex *b,
789790
integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
790791
beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
791792
*ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,

‎lapack-netlib/SRC/zgges3.c

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -783,8 +783,9 @@ f"> */
783783
/* > \ingroup complex16GEeigen */
784784

785785
/* ===================================================================== */
786-
/* Subroutine */ void zgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
787-
selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
786+
/* Subroutine */ void zgges3_(char *jobvsl, char *jobvsr, char *sort, logical
787+
(*selctg)(doublecomplex*,doublecomplex*), integer *n, doublecomplex *a,
788+
integer *lda, doublecomplex *b,
788789
integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
789790
beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
790791
*ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,

‎lapack-netlib/SRC/zggesx.c

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -843,8 +843,9 @@ f"> */
843843
/* > \ingroup complex16GEeigen */
844844

845845
/* ===================================================================== */
846-
/* Subroutine */ void zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
847-
selctg, char *sense, integer *n, doublecomplex *a, integer *lda,
846+
/* Subroutine */ void zggesx_(char *jobvsl, char *jobvsr, char *sort, logical
847+
(*selctg)(doublecomplex*,doublecomplex*), char *sense, integer *n,
848+
doublecomplex *a, integer *lda,
848849
doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
849850
doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
850851
doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *

0 commit comments

Comments
 (0)