------- 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