Subversion Repositories openrisc_2011-10-31

! { dg-do run }

! Program to test for proper EOF errors when reading past the end of a file.

! We used to get this wrong when a formatted read followed a list formatted

! read.

program eof_1

  character(len=5) :: s

  open (unit=11, status="SCRATCH")

  write (11, '(a)') "Hello"

  rewind(11)

  read(11, *) s

  if (s .ne. "Hello") call abort

  read(11, '(a5)', end=10) s

  call abort

10 continue

  close (11)

end