diff options
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 63482461cc28..fa31b98665bc 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1427,10 +1427,8 @@ namelist_write_newline (st_parameter_dt *dtp) if (is_array_io (dtp)) { gfc_offset record; - int finished, length; + int finished; - length = (int) dtp->u.p.current_unit->bytes_left; - /* Now that the current record has been padded out, determine where the next record in the array is. */ record = next_array_record (dtp, dtp->u.p.current_unit->ls, |