diff options
| author | Craig Burley <burley@gnu.org> | 1999-06-28 06:36:25 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gnu.org> | 1999-06-28 06:36:25 +0000 |
| commit | 6ca5f9e208d0dd37aaec57aa25c31aef6e66e638 (patch) | |
| tree | 9ea44c5a73cdb2c7f1bfd507567dc748954a390f | |
| parent | e7f003f295ce676ca61925d9944445d39876d120 (diff) | |
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
| -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: |