目录

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
↑回到顶部↑
WIKI教程 @2018