diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-07-13 21:46:44 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-07-13 21:46:44 +0300 |
| commit | 5f54710465b16155cffaa7934e29533cd2d21292 (patch) | |
| tree | e79f00855ec05f85b621ccd763a2676cc70806e1 /gcc | |
| parent | 9e34e53f8e2c0379411d643790e0587038d922cf (diff) | |
| download | gcc-5f54710465b16155cffaa7934e29533cd2d21292.zip gcc-5f54710465b16155cffaa7934e29533cd2d21292.tar.gz gcc-5f54710465b16155cffaa7934e29533cd2d21292.tar.bz2 | |
PR 49296 List read, EOF without preceding separator
2011-07-13 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/49296
* io/list_read.c (read_logical): Don't error out if a valid value
is followed by EOF instead of a normal separator.
(read_integer): Likewise.
testsuite:
2011-07-13 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/49296
* gfortran.dg/read_list_eof_1.f90: Add tests for integer, real,
and logical reads.
From-SVN: r176245
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_list_eof_1.f90 | 38 |
2 files changed, 41 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d4743a6..f6fd7f0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2011-07-13 Janne Blomqvist <jb@gcc.gnu.org> + + PR libfortran/49296 + * gfortran.dg/read_list_eof_1.f90: Add tests for integer, real, + and logical reads. + 2011-07-13 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> * gcc.c-torture/execute/990127-2.x: Use -mpc64 on i?86-*-darwin*, diff --git a/gcc/testsuite/gfortran.dg/read_list_eof_1.f90 b/gcc/testsuite/gfortran.dg/read_list_eof_1.f90 index 775346e..c33bc2e 100644 --- a/gcc/testsuite/gfortran.dg/read_list_eof_1.f90 +++ b/gcc/testsuite/gfortran.dg/read_list_eof_1.f90 @@ -3,7 +3,11 @@ program read_list_eof_1 implicit none character(len=100) :: s - call genfil () + integer :: ii + real :: rr + logical :: ll + + call genfil ('a') open (unit=20, file='read.dat', form='FORMATTED', action='READ', & status='OLD') read (20, fmt=*) s @@ -12,11 +16,39 @@ program read_list_eof_1 call abort () end if + call genfil ('1') + open (unit=20, file='read.dat', form='FORMATTED', action='READ', & + status='OLD') + read (20, fmt=*) ii + close (20, status='delete') + if (ii /= 1) then + call abort () + end if + + call genfil ('1.5') + open (unit=20, file='read.dat', form='FORMATTED', action='READ', & + status='OLD') + read (20, fmt=*) rr + close (20, status='delete') + if (rr /= 1.5) then + call abort () + end if + + call genfil ('T') + open (unit=20, file='read.dat', form='FORMATTED', action='READ', & + status='OLD') + read (20, fmt=*) ll + close (20, status='delete') + if (.not. ll) then + call abort () + end if + contains - subroutine genfil + subroutine genfil(str) + character(len=*), intent(in) :: str open(10, file='read.dat', form='unformatted', action='write', & status='replace', access='stream') - write(10) 'a' + write(10) str close(10) end subroutine genfil end program read_list_eof_1 |