http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60128
--- Comment #26 from ro at CeBiTec dot Uni-Bielefeld.DE <ro at CeBiTec dot
Uni-Bielefeld.DE> ---
> --- 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
This passes on both i386-pc-solaris2.9 and i386-pc-solaris2.11.
Rainer
