2 ! PR25828 Stream IO test 4, Tests string read and writes, single byte.
3 ! Verifies buffering is working correctly and position="append"
4 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
7 character(1) :: lf = char(10)
10 integer, parameter :: lines = 5231
12 open(10, file="teststream", access="stream", form="formatted")
22 open(10, file="teststream", access="stream",&
23 &form="formatted", position="append")
33 if (k.ne.j) call abort()
37 close(10,status="delete")
38 end program streamtest