diff options
author | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-01 02:32:41 +0000 |
---|---|---|
committer | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-01 02:32:41 +0000 |
commit | 0b905bf2d575bef3f64ed3e201f4de49c6b00868 (patch) | |
tree | bcdcac5d59bc07347844bd7c8bef2aa121bd17b1 /lib/libI77 | |
parent | a9e4d8c73000a226b3e1b391ee0d779a3c99db8f (diff) | |
download | src-0b905bf2d575bef3f64ed3e201f4de49c6b00868.tar.gz src-0b905bf2d575bef3f64ed3e201f4de49c6b00868.zip |
Fix the output format for numbers >= 1E99.
Closes PR bin/648.
Notes
Notes:
svn path=/head/; revision=24469
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 21485a453329..0adcccce137b 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 */ |