fix BACKSPACE

From-SVN: r27541

libf2c/ChangeLog

+Wed Jun 16 11:38:58 1999  Craig Burley  <craig@jcb-sc.com>
+
+	From Ian Watson <WATSON_IAN_A@Lilly.com> 1999-06-12:
+	* libI77/backspace.c: Reload file descriptor after
+	calling t_runc.
+	* libI77/Version.c: Bump libg2c version.
+
 Wed May 26 14:26:35 1999  Craig Burley  <craig@jcb-sc.com>
 
 	* libF77/Version.c, libI77/Version.c, libU77/Version.c:

libf2c/libI77/Version.c

@@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
 /*
 */
 
-char __G77_LIBI77_VERSION__[] = "0.5.25 19981012 (prerelease)";
+char __G77_LIBI77_VERSION__[] = "0.5.25 19990616 (prerelease)";
 
 /*
 2.01	$ format added

libf2c/libI77/backspace.c

@@ -27,6 +27,7 @@ integer f_back(alist *a)
 	}
 	if(b->uwrt) {
 		(void) t_runc(a);
+		f = b->ufd;	/* t_runc might change b->ufd */
 		if (f__nowreading(b))
 			err(a->aerr,errno,"backspace");
 		}