This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, libgfortran] Improvement to float output - updated patch
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- Cc: fortran at gcc dot gnu dot org, François-Xavier Coudert <fxcoudert at gmail dot com>
- Date: Mon, 03 Apr 2006 17:12:11 -0700
- Subject: Re: [Patch, libgfortran] Improvement to float output - updated patch
- References: <5AEA9E0529F77A4E855B32821FDB609C02613112@EX4V.rl.gov>
DeLisle, Jerry V wrote:
I did not have access to any other compiler. I can also provide the
following format easily if this is more sensible. I had it doing this
before I looked at Ifort. :)
01234567890123456789
0.D+00
So I will do this instead. I will wait a few days to see if there are
any other comments.
Best Regards,
Jerry
This patch is even easier. I will commit instead as obvious.
Have a good day!
Jerry
Index: io/write.c
===================================================================
*** io/write.c (revision 112632)
--- io/write.c (working copy)
*************** output_float (st_parameter_dt *dtp, cons
*** 473,479 ****
ndigits - 1, value);
/* Check the resulting string has punctuation in the correct places. */
! if (buffer[2] != '.' || buffer[ndigits + 2] != 'e')
internal_error (&dtp->common, "printf is broken");
/* Read the exponent back in. */
--- 473,479 ----
ndigits - 1, value);
/* Check the resulting string has punctuation in the correct places. */
! if (d != 0 && (buffer[2] != '.' || buffer[ndigits + 2] != 'e'))
internal_error (&dtp->common, "printf is broken");
/* Read the exponent back in. */