＜EXIT Example Program＞

Program exit_example
  Integer :: i,irem
  Do i = 5, 10
    irem = Mod(i,4)
    If (irem==0) Exit
    Print *, irem
  End Do
  Print *, i
End Program

■ Execution Results

 1
 2
 3
 8