From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Sun, 2 Dec 2001 14:00:56 +0000 (+0100)
Subject: re PR fortran/4885 (BACKSPACE example that doesn't work as of gcc/g77-3.0.x)
X-Git-Tag: prereleases/libstdc++-3.0.95~584
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f813aee742fd9d67d1cd1cf465daff43932bac26;p=thirdparty%2Fgcc.git

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
---

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index c6c1f0a3e36b..4c1e4b5921b7 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 14b51f043c4a..4c5a9dd21d63 100644
--- a/libf2c/libI77/endfile.c
+++ b/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");