program Block_02
integer :: A
A = 10
1 loop: block
    integer :: B
    A = A + 5
    if (A == 15) then
        go to 1
    end if
    B = A/2
    call Square(B)
end block loop
end program Block_02


subroutine Square(B)
integer :: B, Result
Result = B*B
print *, Result
end subroutine Square
