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