2 ! PR25828 Stream IO test 1
3 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
8 OPEN(UNIT=11, ACCESS="stream")
14 if (i.ne.1234567) call abort()
16 if (r-3.14159 .gt. 0.00001) call abort()
17 CLOSE(UNIT=11, status="delete")
18 END PROGRAM stream_io_1