io_end.f90

来自「用于进行gcc测试」· F90 代码 · 共 10 行

! Check we can cope with end labels in IO statements
program m
    implicit none
    integer i
    do while (.true.)
       read(*, *, end = 1) i
    end do
1   continue 
end program m