http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60128
--- Comment #24 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Rainer,
can you test the following patch?
--- _clean/gcc/testsuite/gfortran.dg/fmt_en.f90 2014-03-04
17:51:04.000000000 +0100
+++ work/gcc/testsuite/gfortran.dg/fmt_en.f90 2014-03-18 18:08:22.000000000
+0100
@@ -128,6 +128,9 @@ contains
else if (i == 3) then
write(s, fmt) real(x,kind=j(3))
else if (i == 4) then
+ ! skip if real(16) are not rounded to nearest (Solaris 9/x86)
+ write(s, '(F3.1)') real(9.49999905,kind=j(4))
+ if (s /= '9.5') exit
write(s, fmt) real(x,kind=j(4))
end if
n_tst = n_tst + 1
