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 c6c1f0a3e36babd3e419af199eae1d061c5e3d52..4c1e4b5921b7a60913856ab86ba9d9cefd61382d 100644 (file)
--- 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 14b51f043c4a92800e2fc2dae4d2cfa825715320..4c5a9dd21d63fc4e4546fb256925ace098e04ada 100644 (file)
--- 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");