From 6ca5f9e208d0dd37aaec57aa25c31aef6e66e638 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Mon, 28 Jun 1999 06:36:25 +0000 Subject: Update to Netlib version of 1999-06-28 git-svn-id: https://gcc.gnu.org/svn/gcc/branches/Netlib_branch@27810 138bc75d-0d04-0410-961f-82ee72b054a4 --- libf2c/libI77/Version.c | 5 ++++- 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: -- cgit v1.2.3