diff options
| author | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-21 13:23:13 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-21 13:23:13 +0000 |
| commit | 22e4cb8c23d801454d0a97050a3ceaaa7b3efc3b (patch) | |
| tree | e2984bb6033539a63b2acf9d3b55176d2f33261c | |
| parent | 82507bc99687f1763feb06b3e2a9a7b9927088b5 (diff) | |
| download | gcc-22e4cb8c23d801454d0a97050a3ceaaa7b3efc3b.zip gcc-22e4cb8c23d801454d0a97050a3ceaaa7b3efc3b.tar.gz gcc-22e4cb8c23d801454d0a97050a3ceaaa7b3efc3b.tar.bz2 | |
Fix typo.
From-SVN: r86363
| -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 5bc3c00..dc12745 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 |