＜Example Program 1＞

Program do_example_1
  Do i = 1, 5, 2
    Print *, i
  End Do
End Program

■ Execution Results

 1
 3
 5

＜Example Program 2＞

Program do_example_2
  loop: Do i = 5, 1, -2
    Print *, I
  End Do loop
End Program

■ Execution Results

 5
 3
 1

＜Example Program 3＞

Program do_example_3
  i = 2
  Do
    Print *, i
    If (i>100) Exit
    i = i**2
  End Do
End Program

■ Execution Results

 2
 4
 16
 256