From f1182dd22b9540464d7ede01abb4a8d321fb4e91 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 15 Mar 2014 15:15:22 +0000 Subject: [PATCH] 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 PR libfortran/58324 * gfortran.dg/list_read_12.f90: New test. From-SVN: r208592 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/list_read_12.f90 | 11 +++++++++++ 2 files changed, 16 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/list_read_12.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d444e4288cc..abd9579f805 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-03-15 Jerry DeLisle + + PR libfortran/58324 + * gfortran.dg/list_read_12.f90: New test. + 2014-03-15 Janus Weil 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 00000000000..811ef152a5b --- /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