如果您希望停止执行循环程序,可以插入 stop 语句。
stop
program stop_exampleimplicit none integer :: i do i = 1, 20 if (i == 5) then stop end if print*, i end doend program stop_example
program stop_example
implicit none
integer :: i
do i = 1, 20
if (i == 5) then
end if
print*, i
end do
end program stop_example
结果为:
1234
1
2
3
4