diff options
Diffstat (limited to 'libgfortran/io/backspace.c')
-rw-r--r-- | libgfortran/io/backspace.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/libgfortran/io/backspace.c b/libgfortran/io/backspace.c index e378adf..eb25b10 100644 --- a/libgfortran/io/backspace.c +++ b/libgfortran/io/backspace.c @@ -71,9 +71,8 @@ formatted_backspace (void) } while (base != 0); -/* base is the new pointer. Seek to it exactly */ - -done: + /* base is the new pointer. Seek to it exactly */ + done: if (sseek (current_unit->s, base) == FAILURE) goto io_error; current_unit->last_record--; @@ -81,7 +80,7 @@ done: return; -io_error: + io_error: generate_error (ERROR_OS, NULL); } @@ -110,7 +109,7 @@ unformatted_backspace (void) current_unit->last_record--; return; -io_error: + io_error: generate_error (ERROR_OS, NULL); } @@ -156,6 +155,6 @@ st_backspace (void) unformatted_backspace (); } -done: + done: library_end (); } |