From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 21 Aug 2004 13:23:13 +0000 (+0000)
Subject: Fix typo.
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=1d8124aa0284445c70e8a49fc4cdeb429514c7c6;p=pf3gnuchains%2Fgcc-fork.git

Fix typo.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86363 138bc75d-0d04-0410-961f-82ee72b054a4
---

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