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")