diff options
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index a24d293..c7abf2b 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1110,15 +1110,16 @@ write_es (fnode *f, const char *p, int len) /* Take care of the X/TR descriptor. */ void -write_x (fnode * f) +write_x (int len, int nspaces) { char *p; - p = write_block (f->u.n); + p = write_block (len); if (p == NULL) return; - memset (p, ' ', f->u.n); + if (nspaces > 0) + memset (&p[len - nspaces], ' ', nspaces); } |