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/libI77 | |
| 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/libI77')
| -rw-r--r-- | libf2c/libI77/endfile.c | 1 |
1 files changed, 1 insertions, 0 deletions
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"); |