[Bug fortran/60128] [4.8/4.9 Regression] Wrong ouput using en edit descriptor

ro at CeBiTec dot Uni-Bielefeld.DE gcc-bugzilla@gcc.gnu.org
Wed Mar 19 09:30:00 GMT 2014


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



More information about the Gcc-bugs mailing list