From 1d8124aa0284445c70e8a49fc4cdeb429514c7c6 Mon Sep 17 00:00:00 2001
From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 21 Aug 2004 13:23:13 +0000
Subject: [PATCH] Fix typo.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86363 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgfortran/io/transfer.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.7.4