http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48906
--- Comment #10 from Thomas Henlich <thenlich at users dot sourceforge.net>
2011-05-27 07:15:16 UTC ---
The test cases from above still fail (but with a different result):
print "(ru,g15.2)", .099d0 ! 1.0E-01 expected 0.10
print "(rc,g15.1)", .095d0 ! 1.E-01 expected 0.1
print "(rc,g15.2)", .0995d0 ! 1.0E-01 expected 0.10
print "(ru,g15.3)", .0999d0 ! 1.00E-01 expected 0.100
Also, G0.d tests fail in the E formatting case, the chosen format is E25.(d)E3
and not the minimal width required for G0.d:
print "(rc,g0.4,'<')", .1234d-3 ! fixed width, not G0.d format
print "(rc,g0.4,'<')", .1234d-2 ! fixed width, not G0.d format
print "(rc,g0.4,'<')", .1234d-1 ! fixed width, not G0.d format
print "(rc,g0.4,'<')", .1234d0
print "(rc,g0.4,'<')", .1234d1
print "(rc,g0.4,'<')", .1234d2
print "(rc,g0.4,'<')", .1234d3
print "(rc,g0.4,'<')", .1234d4
print "(rc,g0.4,'<')", .1234d5 ! fixed width, not G0.d format
print "(rc,g0.4,'<')", .1234d6 ! fixed width, not G0.d format
print "(rc,g0.4,'<')", .1234d7 ! fixed width, not G0.d format
