1! { dg-do run }
2! PR25828 Stream IO test 7, Array writes and reads.
3! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
4program streamtest
5  implicit none
6  character(1)   :: lf = char(10)
7  character(1)   :: tchar
8  integer        :: i,j,k
9  real(kind=4), dimension(100,100) :: anarray
10  open(10, file="teststream", access="stream", form="unformatted")
11  anarray = 3.14159
12  write(10) anarray
13  anarray = 0.0
14  read(10, pos=1) anarray
15  anarray = abs(anarray - 3.14159)
16  if (any(anarray.gt.0.00001)) call abort()
17  close(10,status="delete")
18end program streamtest