https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90329
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
See Also| |https://github.com/Referenc
| |e-LAPACK/lapack/issues/339
--- Comment #23 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
On trunk, it is now possible to generate C prototypes from
Fortran source code for external procedures. Applying
this to dlapack.f in the R source tree yields something like
this (just grabbing a few lines)
$ gfortran -fsyntax-only -fc-prototypes-external dlapack.f
[...]
void dtpqrt2_ (int *m, int *n, int *l, double *a, int *lda, double *b, int
*ldb, double *t, int *ldt, int *info);
void dlarfg_ (int *n, double *alpha, double *x, int *incx, double *tau);
void dlatps_ (char *uplo, char *trans, char *diag, char *normin, int *n, double
*ap, double *x, double *scale, double *cnorm, int *info, size_t uplo_len,
size_t trans_len, size_t diag_len, size_t normin_len);
double dlantp_ (char *norm, char *uplo, char *diag, int *n, double *ap, double
*work, size_t norm_len, size_t uplo_len, size_t diag_len);
void dlatbs_ (char *uplo, char *trans, char *diag, char *normin, int *n, int
*kd, double *ab, int *ldab, double *x, double *scale, double *cnorm, int *info,
size_t uplo_len, size_t trans_len, size_t diag_len, size_t normin_len);
double dlantb_ (char *norm, char *uplo, char *diag, int *n, int *k, double *ab,
int *ldab, double *work, size_t norm_len, size_t uplo_len, size_t diag_len);
Looking for _len yields 236 lines, that is probably the number of
subroutines and functions which would need to be adapted.
