This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[committed, libgfortran] PR34404 (was: [Patch, Fortran] PR 34319 - Accept NaN/Infinity in I/O
- From: Tobias Burnus <burnus at net-b dot de>
- To: "H.J. Lu" <hjl at lucon dot org>
- Cc: Tobias Burnus <tobias dot burnus at physik dot fu-berlin dot de>, gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org
- Date: Sun, 09 Dec 2007 14:00:55 +0100
- Subject: [committed, libgfortran] PR34404 (was: [Patch, Fortran] PR 34319 - Accept NaN/Infinity in I/O
- References: <20071207222900.GA17012@physik.fu-berlin.de> <20071209122241.GA2888@lucon.org>
H.J. Lu wrote:
> goto bad;
>
> ^^^^^^^^^^^^^^^^^
>
> This should be removed. See
>
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34404
>
Thanks for the pointer. I committed the following as obvious (Rev. 130723).
Tobias
Index: libgfortran/ChangeLog
===================================================================
--- libgfortran/ChangeLog (Revision 130722)
+++ libgfortran/ChangeLog (Arbeitskopie)
@@ -1,3 +1,8 @@
+2007-12-09 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/34404
+ * io/list_read.c (parse_real): Remove superfluous "goto bad;".
+
2007-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/34319
Index: libgfortran/io/list_read.c
===================================================================
--- libgfortran/io/list_read.c (Revision 130722)
+++ libgfortran/io/list_read.c (Arbeitskopie)
@@ -1148,7 +1148,6 @@
goto bad;
}
- goto bad;
push_char (dtp, c);
for (;;)
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog (Revision 130722)
+++ gcc/testsuite/ChangeLog (Arbeitskopie)
@@ -1,3 +1,9 @@
+2007-12-09 H.J. Lu <hjl@lucon.org>
+ Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/34404
+ * gfortran.dg/read_2.f90: New.
+
2007-12-09 Richard Sandiford <rsandifo@nildram.co.uk>
* lib/target-supports.exp (check_effective_target_tls_native):
Index: gcc/testsuite/gfortran.dg/read_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/read_2.f90 (Revision 0)
+++ gcc/testsuite/gfortran.dg/read_2.f90 (Revision 0)
@@ -0,0 +1,12 @@
+! { dg-do run }
+!
+! PR fortran/34404
+!
+! Contributed by Joost VandeVondele.
+!
+implicit none
+complex :: x
+character(len=80) :: t="(1.0E-7,4.0E-3)"
+read(t,*) x
+if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-3) call abort()
+END