aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io/backspace.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/io/backspace.c')
-rw-r--r--libgfortran/io/backspace.c11
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 ();
}