2 ! PR25828 Stream IO test 3, tests read_x and inquire.
3 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
7 character(10) :: myaccess
8 open(10, access="stream", form="formatted")
10 write(10,'(3(2x,i4/)/3(3x,i6/))') i
13 read(10,'(3(2x,i4/)/3(3x,i6/))') i
14 if (any(i.ne.(/(j,j=1,6)/))) call abort()
15 inquire(unit=10, access=myaccess)
16 if (myaccess.ne."STREAM") call abort()
17 close(10,status="delete")
18 end program streamio_3