Fortran-exit

Fortran-終了ステートメント

Exitステートメントは、ループまたは選択ケースステートメントを終了し、ループまたは選択の直後のステートメントに実行を転送します。

流れ図

終了ステートメント

例

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