1! { dg-do run }
2! PR25828 Stream IO test 3, tests read_x and inquire.
3! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
4program streamio_3
5  implicit none
6  integer         :: i(6),j
7  character(10)   :: myaccess
8  open(10, access="stream", form="formatted")
9  i = (/(j,j=1,6)/)
10  write(10,'(3(2x,i4/)/3(3x,i6/))') i
11  i = 0
12  rewind(10)
13  read(10,'(3(2x,i4/)/3(3x,i6/))') i
14  if (any(i.ne.(/(j,j=1,6)/))) STOP 1
15  inquire(unit=10, access=myaccess)
16  if (myaccess.ne."STREAM") STOP 2
17  close(10,status="delete")
18end program streamio_3
19