diff options
| -rw-r--r-- | libf2c/ChangeLog | 5 | ||||
| -rw-r--r-- | libf2c/libI77/endfile.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index c6c1f0a..4c1e4b5 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 14b51f0..4c5a9dd 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"); |