1! { dg-do run }
2! PR25828 Stream IO test 5, unformatted single byte
3! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
4program streamtest5
5  implicit none
6  character(1)   :: lf = char(10)
7  character(1)   :: tchar
8  integer        :: i,j,k
9
10  open(10, file="teststream", access="stream", form="unformatted")
11
12  do i=1,1229
13    do j=0,9
14      write(10) j
15    end do
16    write(10) lf
17  end do
18
19  close(10)
20
21  open(10, file="teststream", access="stream", form="unformatted")
22
23  do i=1,1229
24    do j=0,9
25      read(10) k
26      if (k.ne.j) call abort()
27    end do
28    read(10) tchar
29    if (tchar.ne.lf) call abort()
30  end do
31  close(10,status="delete")
32end program streamtest5