diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-02 14:00:56 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-02 14:00:56 +0000 |
| commit | 01659e68e10d4daa22678af3cabdbdda7ce4663d (patch) | |
| tree | 68cf8b92c6cccbb3093d2684ff6809382984e0a9 /libf2c | |
| parent | 765e59c06e96114df0947d70c6e68c089efe3c2f (diff) | |
| download | gcc-01659e68e10d4daa22678af3cabdbdda7ce4663d.tar.gz | |
2001-01-02 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/4885
* endfile.c (t_runc): After ftruncate. seek to end-of-file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47529 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c')
| -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 c6c1f0a3e36..4c1e4b5921b 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 14b51f043c4..4c5a9dd21d6 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"); |