|
111
|
1 ! { dg-do run }
|
|
|
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.
|
|
|
5 program stream_io_10
|
|
|
6 implicit none
|
|
|
7 integer(kind=4) :: a(4), b(4)
|
|
|
8 integer(kind=8) :: thepos
|
|
|
9 a = (/ 1, 2, 3, 4 /)
|
|
|
10 b = a
|
|
|
11 open(10, file="teststream_streamio_10", access="stream")
|
|
|
12 write(10) a
|
|
|
13 inquire(10, pos=thepos)
|
|
131
|
14 if (thepos.ne.17) STOP 1
|
|
111
|
15
|
|
|
16 read(10, pos=1)
|
|
|
17 inquire(10, pos=thepos)
|
|
131
|
18 if (thepos.ne.1) STOP 2
|
|
111
|
19
|
|
|
20 write(10, pos=15)
|
|
|
21 inquire(10, pos=thepos)
|
|
131
|
22 if (thepos.ne.15) STOP 3
|
|
111
|
23
|
|
|
24 read(10, pos=3)
|
|
|
25 inquire(10, pos=thepos)
|
|
131
|
26 if (thepos.ne.3) STOP 4
|
|
111
|
27
|
|
|
28 write(10, pos=1)
|
|
|
29 inquire(10, pos=thepos)
|
|
131
|
30 if (thepos.ne.1) STOP 5
|
|
111
|
31
|
|
|
32 a = 0
|
|
|
33 read(10) a
|
|
131
|
34 if (any(a /= b)) STOP 6
|
|
111
|
35
|
|
|
36 close(10, status="delete")
|
|
|
37 end program stream_io_10
|
