Update to Netlib version of 1999-06-28, doc fix

craig@jcb-sc.com craig@jcb-sc.com
Mon Jun 28 18:41:00 GMT 1999


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,


More information about the Gcc-patches mailing list