OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/56696 (Formatted (list-directed) input fails to signal end of record)

Browse Source 
2013-03-24  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56696
        * io/list_read.c (read_real): Fix EOF diagnostic.

2013-03-24  Tobias Burnus  <burnus@net-b.de>

        PR fortran/56696
        * gfortran.dg/eof_5.f90: New.

From-SVN: r197019
This commit is contained in:
Tobias Burnus 2013-03-24 11:16:33 +01:00 committed by Tobias Burnus
parent b01819be5d
commit a73421c460
4 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-03-24 Tobias Burnus <burnus@net-b.de>
PR fortran/56696
* gfortran.dg/eof_5.f90: New.
2013-03-23 Sebastian Huber <sebastian.huber@embedded-brains.de>
* gcc.c-torture/execute/builtins/builtins.exp: Sort targets

21
gcc/testsuite/gfortran.dg/eof_5.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do run }
!
! PR fortran/56696
!
! Contributed by Keith Refson
!
program iotest
character(len=258) :: inp = ' 1.0 1.0 1.0'
character(len=7) :: inp2 = '1 2 3 4'
integer :: ios
real :: a1, a2, a3, a4
read(inp2,*,iostat=ios) a1, a2, a3, a4
if (ios /= 0) call abort ()
read(inp,*,iostat=ios) a1, a2, a3, a4
if (ios == 0) call abort ()
! write(*,*) 'IOSTAT=',ios
end program iotest

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-03-24 Tobias Burnus <burnus@net-b.de>
PR fortran/56696
* io/list_read.c (read_real): Fix EOF diagnostic.
2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
PR libfortran/51825

1
libgfortran/io/list_read.c
View File

@ -1433,7 +1433,6 @@ read_real (st_parameter_dt *dtp, void * dest, int length)
goto got_sign;
CASE_SEPARATORS:
case EOF:
unget_char (dtp, c); /* Single null. */
eat_separator (dtp);
return;