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

[Jerry DeLisle]

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:
> 
> "When used to specify the output of real or complex data that is not an
> IEEE infinity or NaN, the G0 and G0.<d> edit descriptors follow the rules
> for the G<w>.<d>E<e> edit descriptor, except that any leading or trailing
> blanks are removed."
> 
> Example:
With this:
print '(a,g0,a)','>', 334,   '<'
print '(a,g0,a)','>', 334.04,'<'
print '(a,g0,a)','>', 334.74,'<'
print '(a,g0.3,a)','>', 334.,   '<'
print '(a,g0.3,a)','>', 334.04,'<'
end

I now get:

 >334<
 >334.<
 >335.<
 >334.000<
 >334.040<

and I will turn this into a new test case.

OK to commit?

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