! { dg-do run } | |
program stream_test | |
implicit none | |
integer :: ios | |
character(128) :: message | |
open(10, status='scratch', access='stream') | |
write (10, rec=1, iostat=ios, iomsg=message) "This is a test" ! | |
if (ios.ne.5001) STOP 1 | |
if (message.ne. & | |
&"Record number not allowed for stream access data transfer") & | |
STOP 2 | |
end program |