2 ! PR25093 Stream IO test 10
3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
4 ! Test case derived from that given in PR by Steve Kargl.
8 integer(kind=8) :: thepos
11 open(10, file="teststream", access="stream")
13 inquire(10, pos=thepos)
14 if (thepos.ne.17) call abort()
17 inquire(10, pos=thepos)
18 if (thepos.ne.1) call abort()
21 inquire(10, pos=thepos)
22 if (thepos.ne.15) call abort()
25 inquire(10, pos=thepos)
26 if (thepos.ne.3) call abort()
29 inquire(10, pos=thepos)
30 if (thepos.ne.1) call abort()
34 if (any(a /= b)) call abort()
36 close(10, status="delete")
37 end program stream_io_10