diff options
| author | jmz <jmz@FreeBSD.org> | 1997-04-01 02:32:41 +0000 |
|---|---|---|
| committer | jmz <jmz@FreeBSD.org> | 1997-04-01 02:32:41 +0000 |
| commit | 7014b47114f245c4ad0fd10132a412a10918f03b (patch) | |
| tree | 70ce0d7e5351de145eea459cf201d84067dbfe8e /lib/libI77 | |
| parent | 86c18de140274b32c7411561b6faf8800d4006a8 (diff) | |
| download | FreeBSD-src-7014b47114f245c4ad0fd10132a412a10918f03b.zip FreeBSD-src-7014b47114f245c4ad0fd10132a412a10918f03b.tar.gz | |
Fix the output format for numbers >= 1E99.
Closes PR bin/648.
Diffstat (limited to 'lib/libI77')
| -rw-r--r-- | lib/libI77/wref.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/libI77/wref.c b/lib/libI77/wref.c index 21485a4..0adcccc 100644 --- a/lib/libI77/wref.c +++ b/lib/libI77/wref.c @@ -117,8 +117,8 @@ nogood: /* accommodate 3 significant digits in exponent */ if (s[2]) { #ifdef Pedantic - if (!e0 && !s[3]) - for(s -= 2, e1 = 2; s[0] = s[1]; s++); + if (!e0 && !s[3]) + e1 = 2; /* for(s -= 2, e1 = 2; s[0] = s[1]; s++); */ /* Pedantic gives the behavior that Fortran 77 specifies, */ /* i.e., requires that E be specified for exponent fields */ |
