1! { dg-do run }
2! Handle eor and eof conditions with missing eor in file.
3! Test case modified from case presented by Ian Harvey on clf.
4program eieio_stat
5  use, intrinsic :: iso_fortran_env, only: iostat_end, iostat_eor
6  implicit none
7  integer, parameter :: unit=10
8  integer :: ios1, ios2, ios3
9  character(25) :: buffer
10  character(100) :: themessage
11  !****
12  open(10,file="eieio", form="unformatted", access="stream", status="replace")
13  write(10) "Line-1" // char(10)
14  write(10) "Line-2"
15  close(10)
16
17  open(10,file="eieio")
18
19  buffer = 'abcdefg'
20  read (unit,"(a)",advance="no",iostat=ios1, pad="yes") buffer
21  if (ios1 /= iostat_eor .and. buffer /= "Line-1") call abort
22
23  buffer = '<'
24  read (unit,"(a)",advance="no",iostat=ios2,pad="yes") buffer
25  if (ios2 /= iostat_eor .and. buffer /= "Line-2") call abort
26
27  buffer = '5678'
28  read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer
29  if (ios3 /= iostat_end .and. buffer /= "5678") call abort
30
31  rewind(10)
32
33  buffer = "abcdefg"
34  read (unit,"(a)",advance="no",iostat=ios1, pad="no") buffer
35  if (ios1 /= iostat_eor .and. buffer /= "abcdefg") call abort
36
37  buffer = '<'
38  read (unit,"(a)",advance="no",iostat=ios2,pad="no") buffer
39  if (ios2 /= iostat_eor .and. buffer /= "<") call abort
40
41  buffer = '1234'
42  read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer
43  if (ios3 <= 0 .and. buffer /= "1234") call abort
44
45  close(unit, status="delete")
46end program eieio_stat
47