2 ! PR25828 Stream IO test 5, unformatted single byte
3 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
6 character(1) :: lf = char(10)
10 open(10, file="teststream", access="stream", form="unformatted")
21 open(10, file="teststream", access="stream", form="unformatted")
26 if (k.ne.j) call abort()
29 if (tchar.ne.lf) call abort()
31 close(10,status="delete")
32 end program streamtest5