2 ! PR29053 Stream IO test 9.
3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
4 ! Test case derived from that given in PR by Steve Kargl.
7 real dt
, t
, u
, a(10), b(10)
10 a
= real( (/ (i
, i
=1, 10) /) )
12 open(unit
=11, file
='a.dat', access
='stream')
13 open(unit
=12, file
='b.dat', access
='stream')
24 if (any(a
.ne
.b
)) call abort()
26 if (u
.ne
.t
) call abort()
28 close(11, status
="delete")
29 close(12, status
="delete")