Fortran exit 语句

exit 语句终止循环或 select case 语句，并将执行转移到循环或 select 之后的语句。

流程图

program nestedLoop
implicit none
integer:: i, j, k
   iloop: do i = 1, 3
      jloop: do j = 1, 3
         kloop: do k = 1, 3
         print*, "(i, j, k): ", i, j, k
         if (k==2) then
            exit jloop
         end if
         end do kloop
      end do jloop
   end do iloop
end program nestedLoop

结果如下：

(i, j, k): 1  1  1
(i, j, k): 1  1  2
(i, j, k): 2  1  1
(i, j, k): 2  1  2
(i, j, k): 3  1  1
(i, j, k): 3  1  2