aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io/write.c
diff options
context:
space:
mode:
authorRichard Henderson <rth@redhat.com>2004-12-06 16:01:01 -0800
committerRichard Henderson <rth@gcc.gnu.org>2004-12-06 16:01:01 -0800
commitf21edfd62d267934ad7e9475976719bc41ee7dc3 (patch)
tree379c730c455320b1f8101e6a2c9d24435a6e33b3 /libgfortran/io/write.c
parent9f91e6cc1610417926374738af0e102187723d59 (diff)
downloadgcc-f21edfd62d267934ad7e9475976719bc41ee7dc3.zip
gcc-f21edfd62d267934ad7e9475976719bc41ee7dc3.tar.gz
gcc-f21edfd62d267934ad7e9475976719bc41ee7dc3.tar.bz2
c99_functions.c, [...]: Whitespace fixes.
* intrinsics/c99_functions.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c, intrinsics/exit.c, intrinsics/flush.c, intrinsics/ishftc.c, intrinsics/mvbits.c, intrinsics/pack_generic.c, intrinsics/random.c, intrinsics/reshape_generic.c, intrinsics/size.c, intrinsics/spread_generic.c, intrinsics/stat.c, intrinsics/string_intrinsics.c, intrinsics/system_clock.c, intrinsics/transpose_generic.c, intrinsics/unlink.c, intrinsics/unpack_generic.c, io/backspace.c, io/format.c, io/list_read.c, io/lock.c, io/open.c, io/transfer.c, io/unix.c, io/write.c, runtime/environ.c, runtime/error.c, runtime/in_pack_generic.c, runtime/in_unpack_generic.c, runtime/main.c, runtime/memory.c, runtime/pause.c, runtime/stop.c, runtime/string.c: Whitespace fixes. From-SVN: r91794
Diffstat (limited to 'libgfortran/io/write.c')
-rw-r--r--libgfortran/io/write.c14
1 files changed, 2 insertions, 12 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index fd4665b..4d9c015 100644
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -780,7 +780,7 @@ write_int (fnode *f, const char *source, int len, char *(*conv) (uint64_t))
memcpy (p, q, digits);
-done:
+ done:
return;
}
@@ -865,7 +865,7 @@ write_decimal (fnode *f, const char *source, int len, char *(*conv) (int64_t))
memcpy (p, q, digits);
-done:
+ done:
return;
}
@@ -928,7 +928,6 @@ btoa (uint64_t n)
void
write_i (fnode * f, const char *p, int len)
{
-
write_decimal (f, p, len, (void *) itoa);
}
@@ -936,7 +935,6 @@ write_i (fnode * f, const char *p, int len)
void
write_b (fnode * f, const char *p, int len)
{
-
write_int (f, p, len, btoa);
}
@@ -944,14 +942,12 @@ write_b (fnode * f, const char *p, int len)
void
write_o (fnode * f, const char *p, int len)
{
-
write_int (f, p, len, otoa);
}
void
write_z (fnode * f, const char *p, int len)
{
-
write_int (f, p, len, xtoa);
}
@@ -959,7 +955,6 @@ write_z (fnode * f, const char *p, int len)
void
write_d (fnode *f, const char *p, int len)
{
-
write_float (f, p, len);
}
@@ -967,7 +962,6 @@ write_d (fnode *f, const char *p, int len)
void
write_e (fnode *f, const char *p, int len)
{
-
write_float (f, p, len);
}
@@ -975,7 +969,6 @@ write_e (fnode *f, const char *p, int len)
void
write_f (fnode *f, const char *p, int len)
{
-
write_float (f, p, len);
}
@@ -983,7 +976,6 @@ write_f (fnode *f, const char *p, int len)
void
write_en (fnode *f, const char *p, int len)
{
-
write_float (f, p, len);
}
@@ -991,7 +983,6 @@ write_en (fnode *f, const char *p, int len)
void
write_es (fnode *f, const char *p, int len)
{
-
write_float (f, p, len);
}
@@ -1172,7 +1163,6 @@ write_real (const char *source, int length)
static void
write_complex (const char *source, int len)
{
-
if (write_char ('('))
return;
write_real (source, len);