From: Paul Brook <pbrook@gcc.gnu.org>
Date: Sat, 21 Aug 2004 13:23:13 +0000 (+0000)
Subject: Fix typo.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=22e4cb8c23d801454d0a97050a3ceaaa7b3efc3b;p=gcc.git

Fix typo.

From-SVN: r86363
---

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