This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Update to Netlib version of 1999-06-28, doc fix
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Update to Netlib version of 1999-06-28, doc fix
- From: craig at jcb-sc dot com
- Date: 29 Jun 1999 01:37:48 -0000
- Cc: craig at jcb-sc dot com
Committed to mainline.
tq vm, (burley)
egcs/gcc/f/ChangeLog:
Mon Jun 28 21:31:35 1999 Craig Burley <craig@jcb-sc.com>
* bugs.texi, news.texi: Doc upgrade to netlib libf2c as of today.
Explain that this fixes the NAMELIST-read bug.
*** g77-f/gcc/f/bugs.texi.~1~ Fri Jun 25 11:07:06 1999
--- g77-f/gcc/f/bugs.texi Mon Jun 28 21:28:55 1999
***************
*** 10,14 ****
@set copyrights-bugs 1995-1999
! @set last-update-bugs 1999-06-25
@include root.texi
--- 10,14 ----
@set copyrights-bugs 1995-1999
! @set last-update-bugs 1999-06-28
@include root.texi
*************** The following information was last updat
*** 98,112 ****
@itemize @bullet
- @item
- Input to a @code{NAMELIST} read involving a repeat count,
- such as @samp{K(5)=10*3},
- is not properly handled by @code{libf2c}.
- The first item is written to @samp{K(5)},
- but the remaining nine are written elsewhere (still within the array),
- not necessarily starting at @samp{K(6)}.
-
- A fix is pending, certainly for @code{gcc} 3.0,
- perhaps for 2.96 if such a release is made.
-
@item
@code{g77} fails to warn about
--- 98,101 ----
*** g77-f/gcc/f/news.texi.~1~ Mon Jun 21 09:54:26 1999
--- g77-f/gcc/f/news.texi Mon Jun 28 21:30:54 1999
***************
*** 10,14 ****
@set copyrights-news 1995-1999
! @set last-update-news 1999-06-18
@include root.texi
--- 10,14 ----
@set copyrights-news 1995-1999
! @set last-update-news 1999-06-28
@include root.texi
*************** if the system has no @code{ttyname} impl
*** 162,166 ****
@ifclear USERVISONLY
@item
! Upgrade to @code{libf2c} as of 1999-06-18.
@end ifclear
@end itemize
--- 162,174 ----
@ifclear USERVISONLY
@item
! Upgrade to @code{libf2c} as of 1999-06-28.
!
! This fixes a bug whereby
! input to a @code{NAMELIST} read involving a repeat count,
! such as @samp{K(5)=10*3},
! was not properly handled by @code{libf2c}.
! The first item was written to @samp{K(5)},
! but the remaining nine were written elsewhere (still within the array),
! not necessarily starting at @samp{K(6)}.
@end ifclear
@end itemize
egcs/libf2c/ChangeLog:
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.
*** g77-f/libf2c/changes.netlib.~1~ Fri Jun 18 11:25:35 1999
--- g77-f/libf2c/changes.netlib Mon Jun 28 21:26:09 1999
*************** Fri Jun 18 02:33:08 EDT 1999
*** 3020,3021 ****
--- 3020,3026 ----
-- 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).
*** g77-f/libf2c/libI77/Version.c.~1~ Fri Jun 18 11:25:35 1999
--- g77-f/libf2c/libI77/Version.c Mon Jun 28 21:26:09 1999
***************
*** 1,3 ****
! static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990618\n";
/*
--- 1,3 ----
! static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990627\n";
/*
*************** wrtfmt.c:
*** 303,306 ****
--- 303,309 ----
/* 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) */
*** g77-f/libf2c/libI77/rsne.c.~1~ Sat Jan 31 20:37:07 1998
--- g77-f/libf2c/libI77/rsne.c Mon Jun 28 21:26:09 1999
*************** x_rsne(cilist *a)
*** 531,538 ****
if (no1 > f__lcount)
no1 = f__lcount;
- iva += no1 * dn0->delta;
if (k = l_read(&no1, vaddr + iva,
size, type))
return k;
}
}
--- 531,538 ----
if (no1 > f__lcount)
no1 = f__lcount;
if (k = l_read(&no1, vaddr + iva,
size, type))
return k;
+ iva += no1 * dn0->delta;
}
}
*** g77-f/libf2c/readme.netlib.~1~ Fri Jun 18 11:25:35 1999
--- g77-f/libf2c/readme.netlib Mon Jun 28 21:26:09 1999
*************** Fri Jun 18 02:33:08 EDT 1999
*** 720,723 ****
--- 720,729 ----
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,