stop

如果希望停止执行程序，可以插入停止语句。

例子 (Example)

program stop_example     
implicit none
   integer :: i     
   do i = 1, 20          
      if (i == 5) then 
         stop          
      end if         
      print*, i      
   end do  
end program stop_example

编译并执行上述代码时，会产生以下结果 -

1
2
3
4