Re: I/O library and testing

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

Tobias Schlüter wrote:
> Nevertheless, I think this should be
> fixed, and I will commit the obvious patch fixing the equality test to the
> mainline together with a testcase once testing finishes.

For the sake of completeness: here's what I commited to the mainline.

- Tobi

Index: libgfortran/ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/ChangeLog,v
retrieving revision 1.163
diff -u -p -r1.163 ChangeLog
--- libgfortran/ChangeLog       23 Feb 2005 04:09:16 -0000      1.163
+++ libgfortran/ChangeLog       27 Feb 2005 16:14:52 -0000
@@ -1,3 +1,7 @@
+2004-02-27  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * io/write.c (output_float): Fix typo in condition.
+
 2004-02-22  Paul Thomas <paulthomas2@wannado.fr>
            Bud Davis  <bdavis@gfortran.org>

Index: libgfortran/io/write.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/write.c,v
retrieving revision 1.23
diff -u -p -r1.23 write.c
--- libgfortran/io/write.c      21 Feb 2005 19:59:58 -0000      1.23
+++ libgfortran/io/write.c      27 Feb 2005 16:14:52 -0000
@@ -395,7 +395,7 @@ output_float (fnode *f, double value, in
          nafter = d;
        }

-      if (ft = FMT_E)
+      if (ft == FMT_E)
        expchar = 'E';
       else
        expchar = 'D';
Index: gcc/testsuite/ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/ChangeLog,v
retrieving revision 1.5090
diff -u -p -r1.5090 ChangeLog
--- gcc/testsuite/ChangeLog     27 Feb 2005 13:49:27 -0000      1.5090
+++ gcc/testsuite/ChangeLog     27 Feb 2005 16:15:01 -0000
@@ -1,3 +1,7 @@
+2005-02-27  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * gfortran.dg/e_d_fmt.f90: New test.
+
 2005-02-27  Kazu Hirata  <kazu@cs.umass.edu>

        * gcc.dg/asm-b.c: Fix comment typos.
Index: gcc/testsuite/gfortran.dg/e_d_fmt.f90
===================================================================
RCS file: gcc/testsuite/gfortran.dg/e_d_fmt.f90
diff -N gcc/testsuite/gfortran.dg/e_d_fmt.f90
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ gcc/testsuite/gfortran.dg/e_d_fmt.f90       27 Feb 2005 16:15:01 -0000
@@ -0,0 +1,13 @@
+! { dg-do run }
+! Verify that the D format uses 'D' as the exponent character.
+!   "     "    "  E   "     "   'E' "   "     "         "
+CHARACTER*10 c1, c2
+REAL*8 r
+r = 1.0
+write(c1,"(e9.2)") r
+write(c2,"(d9.2)") r
+
+if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()
+if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()
+
+END