1! { dg-do run } 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>. 5program streamtest 6 implicit none 7 character(1) :: lf = char(10) 8 character(1) :: tchar 9 integer :: i,j,k 10 integer, parameter :: lines = 5231 11 12 open(10, file="teststream", access="stream", form="formatted") 13 14 do i=1,lines 15 do j=0,9 16 write(10,"(i5)") j 17 end do 18 end do 19 20 close(10) 21 22 open(10, file="teststream", access="stream",& 23 &form="formatted", position="append") 24 do i=1,lines 25 do j=0,9 26 write(10,"(i5)") j 27 end do 28 end do 29 rewind(10) 30 do i=1,lines 31 do j=0,9 32 read(10,"(i5)") k 33 if (k.ne.j) call abort() 34 end do 35 end do 36 37 close(10,status="delete") 38end program streamtest 39