! { dg-do run }
! PR 19568: We used to read past the end of a line
! Test case provided by gay@sfu.ca
program main
  character(len=8) c1,c2
  open(77)
  write(77,'(A)') 'Line 1','Line 2','Line 3'
  rewind(77)
  read (77,'(A)') c1,c2
  if (c2 .ne. 'Line 2') call abort
end program main