------- Comment #4 from jvdelisle at gcc dot gnu dot org 2008-12-13 23:54
-------
Let's try this again. I need verification that I am interpreting the comments
correctly. With this:
! { dg-do compile }
! { dg-options "-std=f2008" }
! PR36725 Compile time error for g0 edit descriptor
write(*, '(g0.3)') 0.1
write(*, '(g0.9)') 1.0
write(*, '(g0.5)') 29.23
write(*, '(g0.8)') -28.4
write(*, '(5(g0.8,1x))') -0.0001, 2.307, ">",3.45,"<"
write(*, '(2(f0.8,1x))') -0.0001, 2.307
write(*, '(a,g10.4,a)') ">",3.45,"<"
write(*, '(a,g0.4,a)') ">",3.45,"<"
write(*, '(a,f0.4,a)') ">",3.45,"<"
end
I get the following output:
$ ./a.out
.100
1.000000000
29.23000
-28.39999962
-.00010000 2.30699992 > 3.45000005 <
-.00010000 2.30699992
> 3.450 <
>3.4500<
>3.4500<
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38398
