diff options
author | Craig Burley <craig@jcb-sc.com> | 1999-06-28 18:38:42 +0000 |
---|---|---|
committer | Craig Burley <burley@gcc.gnu.org> | 1999-06-28 14:38:42 -0400 |
commit | 245d977a8ab20546f605f8051119740adfc9637f (patch) | |
tree | d91aaae67a9f365a8ea0f49093bf4bb44f90ce2c /libf2c | |
parent | 4198d7341992b86f1e4416a3c0a5389c9b28e414 (diff) | |
download | gcc-245d977a8ab20546f605f8051119740adfc9637f.zip gcc-245d977a8ab20546f605f8051119740adfc9637f.tar.gz gcc-245d977a8ab20546f605f8051119740adfc9637f.tar.bz2 |
Update to Netlib version of 1999-06-28, doc fix
From-SVN: r27816
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/ChangeLog | 6 | ||||
-rw-r--r-- | libf2c/changes.netlib | 5 | ||||
-rw-r--r-- | libf2c/libI77/Version.c | 5 | ||||
-rw-r--r-- | libf2c/libI77/rsne.c | 2 | ||||
-rw-r--r-- | libf2c/readme.netlib | 6 |
5 files changed, 22 insertions, 2 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 7a62c4f..b51430a 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +Mon Jun 28 21:27:08 1999 Craig Burley <craig@jcb-sc.com> + + Update to Netlib version of 1999-06-28: + * changes.netlib, libI77/Version.c, libI77/rsne.c + readme.netlib: See changes.netlib for info. + Fri Jun 18 11:38:07 1999 Craig Burley <craig@jcb-sc.com> * libU77/ttynam_.c: if !defined (HAVE_TTYNAM), diff --git a/libf2c/changes.netlib b/libf2c/changes.netlib index b0e6753..4ec0e7f 100644 --- a/libf2c/changes.netlib +++ b/libf2c/changes.netlib @@ -3019,3 +3019,8 @@ Fri Jun 18 02:33:08 EDT 1999 libf2c.zip: rename backspace.c backspac.c, and fix a glitch in it -- b->ufd may change in t_runc(). (For now, it's still backspace.c in the libi77 bundle.) + +Sun Jun 27 22:05:47 EDT 1999 + libf2c.zip, libi77: rsne.c: fix bug in namelist input: a misplaced +increment could cause wrong array elements to be assigned; e.g., +"&input k(5)=10*1 &end" assigned k(5) and k(15 .. 23). diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index 6a09b70..f6581dc 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -1,4 +1,4 @@ -static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990618\n"; +static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990627\n"; /* */ @@ -302,6 +302,9 @@ wrtfmt.c: by formats Inn or Lnn with nn > 83. */ /* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */ /* 18 June 1999: backspace.c: allow for b->ufd changing in t_runc */ +/* 27 June 1999: rsne.c: fix bug in namelist input: a misplaced increment */ +/* could cause wrong array elements to be assigned; e.g., */ +/* "&input k(5)=10*1 &end" assigned k(5) and k(15..23) */ diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c index 86bb216..c9d5f10 100644 --- a/libf2c/libI77/rsne.c +++ b/libf2c/libI77/rsne.c @@ -530,10 +530,10 @@ x_rsne(cilist *a) no1 = (ivae - iva)/size; if (no1 > f__lcount) no1 = f__lcount; - iva += no1 * dn0->delta; if (k = l_read(&no1, vaddr + iva, size, type)) return k; + iva += no1 * dn0->delta; } } mustend: diff --git a/libf2c/readme.netlib b/libf2c/readme.netlib index 0b8b7f7..1ec9886 100644 --- a/libf2c/readme.netlib +++ b/libf2c/readme.netlib @@ -719,6 +719,12 @@ Fri Jun 18 02:33:08 EDT 1999 -- b->ufd may change in t_runc(). (For now, it's still backspace.c in the libi77 bundle.) +Sun Jun 27 22:05:47 EDT 1999 + libf2c.zip, libi77: rsne.c: fix bug in namelist input: a misplaced +increment could cause wrong array elements to be assigned; e.g., +"&input k(5)=10*1 &end" assigned k(5) and k(15 .. 23). + + Current timestamps of files in "all from f2c/src", sorted by time, appear below (mm/dd/year hh:mm:ss). To bring your source up to date, obtain source files with a timestamp later than the time shown in your |