PR libfortran/34560
* gfortran.dg/read_eof_5.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131178
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-12-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/34560
+ * gfortran.dg/read_eof_5.f90: New test.
+
2007-12-25 Tobias Burnus <burnus@net-b.de>
PR fortran/34514
--- /dev/null
+! { dg-do run }
+! PR34560 I/O internal read: END expected, but no failure
+program main
+ character(len=2) :: line
+ character(len=1) :: a(3)
+ a = "x"
+ line = 'ab'
+ read (line,'(A)',END=99) a
+ call abort
+ 99 continue
+ if (any(a /= ['a','x','x'])) call abort
+end program main