blob: f67ae57ae8ea4dffe87b400f2d3efda47649e1a3 [file] [log] [blame]
! 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