re PR fortran/4885 (BACKSPACE example that doesn't work as of gcc/g77-3.0.x)

2001-01-02  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR fortran/4885
	* endfile.c (t_runc): After ftruncate. seek to end-of-file.

From-SVN: r47529

libf2c/ChangeLog

+2001-01-02  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	PR fortran/4885
+	* endfile.c (t_runc): After ftruncate. seek to end-of-file.
+
 2001-11-25  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* libF77/Makefile.in: Fix non-portable use of `$<' in z_log.c's rule.

libf2c/libI77/endfile.c

@@ -132,6 +132,7 @@ done:
 #else  /* !defined(HAVE_FTRUNCATE) */
 	fflush(b->ufd);
 	rc = ftruncate(fileno(b->ufd), loc);
+        FSEEK(bf,loc,SEEK_SET);
 #endif /* !defined(HAVE_FTRUNCATE) */
 	if (rc)
 		err(a->aerr,111,"endfile");