diff options
| -rw-r--r-- | libf2c/libI77/Version.c | 5 | ||||
| -rw-r--r-- | libf2c/libI77/rsne.c | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index 7cdb9ab4644..8943a4b364a 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"; /* 2.01 $ format added @@ -297,3 +297,6 @@ 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 cc679c76086..46501f73810 100644 --- a/libf2c/libI77/rsne.c +++ b/libf2c/libI77/rsne.c @@ -532,10 +532,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: |