mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-16 13:40:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2007-12-09  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34404
        * io/list_read.c (parse_real): Remove superfluous "goto bad;".

2007-12-09  H.J. Lu  <hjl@lucon.org>
             Tobias Burnus  <burnus@net-b.de>

        PR fortran/34404
        * gfortran.dg/read_2.f90: New.

From-SVN: r130723
This commit is contained in:
Tobias Burnus 2007-12-09 13:58:25 +01:00
parent 44be66a124
commit de80e4f820
4 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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> 2007-12-09 Richard Sandiford <rsandifo@nildram.co.uk>
* lib/target-supports.exp (check_effective_target_tls_native): * lib/target-supports.exp (check_effective_target_tls_native):

12
gcc/testsuite/gfortran.dg/read_2.f90 Normal file
View File

@ -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

5
libgfortran/ChangeLog
View File

@ -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> 2007-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/34319 PR fortran/34319

1
libgfortran/io/list_read.c
View File

@ -1148,7 +1148,6 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length)
goto bad; goto bad;
} }
goto bad;
push_char (dtp, c); push_char (dtp, c);
for (;;) for (;;)