＜DO WHILE Example Program＞

Program do_while_example
  Integer :: x
  x = 0
  Do While (x < 3)
    x = x + 1
    Print *, x
  End Do
End Program

■ Execution Results

 1
 2
 3