re PR fortran/58324 (Bogus END-of-line error with list-directed I/O of file…

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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/list_read_12.f90

+! { 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