diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-21 13:23:13 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-21 13:23:13 +0000 |
| commit | 1d8124aa0284445c70e8a49fc4cdeb429514c7c6 (patch) | |
| tree | e2984bb6033539a63b2acf9d3b55176d2f33261c /libgfortran | |
| parent | 00f780822f234fc161b9003478ed8953b3fe1241 (diff) | |
| download | gcc-1d8124aa0284445c70e8a49fc4cdeb429514c7c6.tar.gz | |
Fix typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86363 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 5bc3c002b60..dc12745bb13 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1321,7 +1321,7 @@ next_record (int done) { fp = file_position (current_unit->s); /* Calculate next record, rounding up partial records. */ - current_unit->last_record = (fp + curren_unit->recl - 1) + current_unit->last_record = (fp + current_unit->recl - 1) / current_unit->recl; } else |