[Bug libfortran/48602] Invalid F conversion of G descriptor for values close to powers of 10

[thenlich at users dot sourceforge.net]

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

--- Comment #22 from Thomas Henlich <thenlich at users dot sourceforge.net> 2011-04-18 05:59:14 UTC ---
(In reply to comment #7)

> +      case ROUND_ZERO:\
> +        r = sign_bit ? 0.0 : 1.0;\

This should read:
    r = sign_bit ? 1.0 : 0.0;\

Attaching modified test.