Fix typo.
authorPaul Brook <pbrook@gcc.gnu.org>
Sat, 21 Aug 2004 13:23:13 +0000 (13:23 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Sat, 21 Aug 2004 13:23:13 +0000 (13:23 +0000)
From-SVN: r86363

libgfortran/io/transfer.c

index 5bc3c002b6086b775a800139b701986d8558e9ad..dc12745bb133d43863712254c25e9fb43b699a89 100644 (file)
@@ -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