＜GO TO Example Program＞

Program goto_example
    Integer :: x,y
    x = 0
10  Continue
    x = x + 1
    y = x**2
    Print *, x,y
    If (y<8) Goto 10
    Print *, 'Finished'
End

■ Execution Results

 1 1
 2 4
 3 9
 Finished