diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-03-15 15:15:22 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-03-15 15:15:22 +0000 |
| commit | f1182dd22b9540464d7ede01abb4a8d321fb4e91 (patch) | |
| tree | 2b9dc90a7e3b143aa40c9df8fa479d8202190c77 /gcc | |
| parent | e94710443aa0359d24db682ba8d856776c3dfa1f (diff) | |
| download | gcc-f1182dd22b9540464d7ede01abb4a8d321fb4e91.zip gcc-f1182dd22b9540464d7ede01abb4a8d321fb4e91.tar.gz gcc-f1182dd22b9540464d7ede01abb4a8d321fb4e91.tar.bz2 | |
re PR fortran/58324 (Bogus END-of-line error with list-directed I/O of file without trailing sequential record marker)
2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/58324
* gfortran.dg/list_read_12.f90: New test.
From-SVN: r208592
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_12.f90 | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d444e42..abd9579 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu> + + PR libfortran/58324 + * gfortran.dg/list_read_12.f90: New test. + 2014-03-15 Janus Weil <janus@gcc.gnu.org> PR fortran/55207 diff --git a/gcc/testsuite/gfortran.dg/list_read_12.f90 b/gcc/testsuite/gfortran.dg/list_read_12.f90 new file mode 100644 index 0000000..811ef15 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/list_read_12.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! PR58324 Bogus end of file condition +integer :: i, ios +open(99, access='stream', form='unformatted') +write(99) "5 a" +close(99) + +open(99, access='sequential', form='formatted') +read(99, *, iostat=ios) i +if (ios /= 0) call abort +end |