From 7014b47114f245c4ad0fd10132a412a10918f03b Mon Sep 17 00:00:00 2001 From: jmz Date: Tue, 1 Apr 1997 02:32:41 +0000 Subject: Fix the output format for numbers >= 1E99. Closes PR bin/648. --- lib/libI77/wref.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/libI77/wref.c') 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 */ -- cgit v1.1