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.
7 integer(kind
=4) :: a(4), b(4)
8 integer(kind
=8) :: thepos
11 open(10, file
="teststream_streamio_10", access
="stream")
13 inquire(10, pos
=thepos
)
14 if (thepos
.ne
.17) STOP 1
17 inquire(10, pos
=thepos
)
18 if (thepos
.ne
.1) STOP 2
21 inquire(10, pos
=thepos
)
22 if (thepos
.ne
.15) STOP 3
25 inquire(10, pos
=thepos
)
26 if (thepos
.ne
.3) STOP 4
29 inquire(10, pos
=thepos
)
30 if (thepos
.ne
.1) STOP 5
34 if (any(a
/= b
)) STOP 6
36 close(10, status
="delete")
37 end program stream_io_10