[patch, fortran] PR38398 g0.w edit descriptor: Update for F2008 Tokyo meeting changes

[Jerry DeLisle]

Jerry DeLisle wrote:
> Tobias Burnus wrote:
>> Jerry,
>>
>> thanks for your patch. However, if I read
>> http://www.j3-fortran.org/doc/year/08/08-296r2.txt
>> correctly, also for "g0" and not only for "g0.d one needs
>> to remove the trailing/heading spaces:
>>

With this patch, I have fixed all of Tobias' comments.  Leading and trailing 
blanks are not printed and we use basic G editing rather than ES.  This is now 
consistent with latest committee comments.

The patch also finds the locus within the format string for errors.

Thanks to Dominique for additional review and checking.

Regression tested on x86-64 (-m32, -m64).  Test case updated in patch.

I plan to commit later today.

Regards,

Jerry

2008-12-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/38398
	* io.c: Add error checks for g0 formatting and provide adjustment of
	error loci for improved error messages.

2008-12-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38398
	* io/io.h (st_parameter_dt): Add new bit to keep track of when to
	suppress blanks for g0 formatting.
	* io/transfer.c (formatted_transfer_scalar): Always call write_real_g0
	for g0 formatting.
	* io.c (write.c): Do not use ES formatting and use new bit to suppress
	blanks.
	* io/write_float.def (output_float): Adjust the location of setting the
	width so that it can be adjusted when suppressing blanks.  Set number of
	blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code
	clean-up and add some white space for readability.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr38398-2.diff
Type: text/x-diff
Size: 6629 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20081222/b20e996e/attachment.bin>