This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/60128] [4.8/4.9 Regression] Wrong ouput using en edit descriptor
- From: "dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Tue, 18 Mar 2014 17:11:39 +0000
- Subject: [Bug fortran/60128] [4.8/4.9 Regression] Wrong ouput using en edit descriptor
- Auto-submitted: auto-generated
- References: <bug-60128-4 at http dot gcc dot gnu dot org/bugzilla/>
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