Skip to content

R
riscv-gcc-1
Commit b10cf173 by Roger Sayle Committed by Roger Sayle
Options

* io/write.c (write_float, list_formatted_write): Fix indentation. 

From-SVN: r90975
parent 484d0bd6
Showing with 60 additions and 57 deletions
libgfortran/ChangeLog
2004-11-20 Roger Sayle <roger@eyesopen.com>
* io/write.c (write_float, list_formatted_write): Fix indentation.
2004-11-20 Eric Botcazou <ebotcazou@libertysurf.fr> 2004-11-20 Eric Botcazou <ebotcazou@libertysurf.fr>
PR target/16135 PR target/16135
......
libgfortran/io/write.c
...@@ -653,41 +653,41 @@ write_float (fnode *f, const char *source, int len) ...@@ -653,41 +653,41 @@ write_float (fnode *f, const char *source, int len)
n = extract_real (source, len); n = extract_real (source, len);
if (f->format != FMT_B && f->format != FMT_O && f->format != FMT_Z) if (f->format != FMT_B && f->format != FMT_O && f->format != FMT_Z)
{ {
res = finite (n); res = finite (n);
if (res == 0) if (res == 0)
{ {
nb = f->u.real.w; nb = f->u.real.w;
p = write_block (nb); p = write_block (nb);
if (nb < 3) if (nb < 3)
{ {
memset (p, '*',nb); memset (p, '*',nb);
return; return;
} }
memset(p, ' ', nb); memset(p, ' ', nb);
res = !isnan (n); res = !isnan (n);
if (res != 0) if (res != 0)
{ {
if (signbit(n)) if (signbit(n))
fin = '-'; fin = '-';
else else
fin = '+'; fin = '+';
if (nb > 7) if (nb > 7)
memcpy(p + nb - 8, "Infinity", 8); memcpy(p + nb - 8, "Infinity", 8);
else else
memcpy(p + nb - 3, "Inf", 3); memcpy(p + nb - 3, "Inf", 3);
if (nb < 8 && nb > 3) if (nb < 8 && nb > 3)
p[nb - 4] = fin; p[nb - 4] = fin;
else if (nb > 8) else if (nb > 8)
p[nb - 9] = fin; p[nb - 9] = fin;
} }
else else
memcpy(p + nb - 3, "NaN", 3); memcpy(p + nb - 3, "NaN", 3);
return; return;
} }
} }
if (f->format != FMT_G) if (f->format != FMT_G)
{ {
...@@ -1252,20 +1252,20 @@ list_formatted_write (bt type, void *p, int len) ...@@ -1252,20 +1252,20 @@ list_formatted_write (bt type, void *p, int len)
void void
namelist_write (void) namelist_write (void)
{ {
namelist_info * t1, *t2; namelist_info * t1, *t2;
int len,num; int len,num;
void * p; void * p;
num = 0; num = 0;
write_character("&",1); write_character("&",1);
write_character (ioparm.namelist_name, ioparm.namelist_name_len); write_character (ioparm.namelist_name, ioparm.namelist_name_len);
write_character("\n",1); write_character("\n",1);
if (ionml != NULL) if (ionml != NULL)
{ {
t1 = ionml; t1 = ionml;
while (t1 != NULL) while (t1 != NULL)
{ {
num ++; num ++;
t2 = t1; t2 = t1;
t1 = t1->next; t1 = t1->next;
...@@ -1296,14 +1296,13 @@ namelist_write (void) ...@@ -1296,14 +1296,13 @@ namelist_write (void)
default: default:
internal_error ("Bad type for namelist write"); internal_error ("Bad type for namelist write");
} }
write_character(",",1); write_character(",",1);
if (num > 5) if (num > 5)
{ {
num = 0; num = 0;
write_character("\n",1); write_character("\n",1);
} }
} }
} }
write_character("/",1); write_character("/",1);
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment