http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60128
--- Comment #17 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- Could your repeat the test for write(*,"(en15.1)") 9.49999905_8 end write(*,"(en15.1)") 9.49999905_10 end and write(*,"(en15.1)") 9.49999905_16 end ?