d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix the output format for numbers >= 1E99.

Browse Source 
Closes PR bin/648.
This commit is contained in:
Jean-Marc Zucconi 1997-04-01 02:32:41 +00:00
parent a9e4d8c730
commit 0b905bf2d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/libI77/wref.c
View File

@ -117,8 +117,8 @@ int wrt_E(ufloat *p, int w, int d, int e, ftnlen len)
/* 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 */