Subversion Repositories openrisc

! { dg-do run }

! Handle eor and eof conditions with missing eor in file.

! Test case modified from case presented by Ian Harvey on clf.

program eieio_stat

  use, intrinsic :: iso_fortran_env, only: iostat_end, iostat_eor

  implicit none

  integer, parameter :: unit=10

  integer :: ios1, ios2, ios3

  character(25) :: buffer

  character(100) :: themessage

  !****

  open(10,file="eieio", form="unformatted", access="stream", status="replace")

  write(10) "Line-1" // char(10)

  write(10) "Line-2"

  close(10)

  open(10,file="eieio")

  buffer = 'abcdefg'

  read (unit,"(a)",advance="no",iostat=ios1, pad="yes") buffer

  if (ios1 /= iostat_eor .and. buffer /= "Line-1") call abort

  buffer = '<'

  read (unit,"(a)",advance="no",iostat=ios2,pad="yes") buffer

  if (ios2 /= iostat_eor .and. buffer /= "Line-2") call abort

  buffer = '5678'

  read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer

  if (ios3 /= iostat_end .and. buffer /= "5678") call abort

  rewind(10)

  buffer = "abcdefg"

  read (unit,"(a)",advance="no",iostat=ios1, pad="no") buffer

  if (ios1 /= iostat_eor .and. buffer /= "abcdefg") call abort

  buffer = '<'

  read (unit,"(a)",advance="no",iostat=ios2,pad="no") buffer

  if (ios2 /= iostat_eor .and. buffer /= "<") call abort

  buffer = '1234'

  read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer

  if (ios3 <= 0 .and. buffer /= "1234") call abort

  close(unit, status="delete")

end program eieio_stat