[Bug fortran/38398] g0.w edit descriptor: Update for F2008 Tokyo meeting changes

[jvdelisle at gcc dot gnu dot org]

------- Comment #11 from jvdelisle at gcc dot gnu dot org  2008-12-28 03:53 -------
Something is amiss. Yes the change to fmt_g0_1.f08 is necessary.  The output
should have no blank spaces in the fields for floating point.

This test case runs fine here, maybe your trunk is not fully updated?

$ cat fmt_g0_1.f08 
    character(25) :: string = "(g0,g0,g0)" 
    character(33) :: buffer
    write(*, '(g0,g0,g0)') ':',12340,':'
    write(*, string) ':',0,':'
    write(*, string) ':',1.0/3.0,':'
    write(*, '(1x,a,g0,a)') ':',1.0/3.0,':'
    write(*, string) ':',"hello",':'
    write(*, "(g0,g0,g0,g0)") ':',.true.,.false.,':'
    write(*, "(g0,g0,',',g0,g0)") '(',( 1.2345, 2.4567 ),')'
end

$ ./a.out 
:12340:
:0:
:.33333334:
 :.33333334:
:hello:
:TF:
(1.2345001,2.4567001)
$


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38398