diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-09 15:34:53 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-09 15:34:53 +0000 |
| commit | b29c5077c085dc32c9ce06e3d8e665d678c5744c (patch) | |
| tree | e96069addc998cc95cee16e821cf01a3d8ae6b6f /libf2c/libF77/s_cat.c | |
| parent | 877b19cd944f9d6cee9e6512a40699294147401d (diff) | |
| download | gcc-b29c5077c085dc32c9ce06e3d8e665d678c5744c.tar.gz | |
2000-12-09 Toon Moene <toon@moene.indiv.nluug.nl>
Update to Netlib version 20001205.
Thanks go to David M. Gay for these updates.
* libF77/Version.c: Update version information.
* libF77/z_log.c: Improve accuracy of real(log(z)) for
z near (+-1,eps) with |eps| small.
* libF77/s_cat.c: Adjust call when ftnint and ftnlen are
of different size.
* libF77/dtime_.c, libF77/etime_.c: Use floating point divide.
* libI77/Version.c: Update version information.
* libI77/rsne.c, libI77/xwsne.c: Adjust code for when ftnint
and ftnlen differ in size.
* libI77/lread.c: Fix reading of namelist logical values followed
by <name>= where <name> starts with T or F.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@38152 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/s_cat.c')
| -rw-r--r-- | libf2c/libF77/s_cat.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libf2c/libF77/s_cat.c b/libf2c/libF77/s_cat.c index f462fd24945..77a94f64745 100644 --- a/libf2c/libF77/s_cat.c +++ b/libf2c/libF77/s_cat.c @@ -22,9 +22,9 @@ VOID #ifdef KR_headers -s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll; +s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnint rnp[], *np; ftnlen ll; #else -s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll) +s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll) #endif { ftnlen i, nc; |