＜CONTINUE Example Program＞

Program continue_example
    Integer :: i,x
    x = 0
    Do 100 i = 1, 6, 2
        x = x + i
100 Continue
    Print *, x
End Program

■ Execution Results

 9