warning: [W180] Unreachable code problem?

[RandomiserUsr]

Hi  if i compile this, says

warning: [W180] Unreachable code

but i don't know why

the version is  zxbasic-1.15.2

Code:

' EXAMPE UNRECHABLE CODE

declare sub mySub()

Dim myNumber As uByte
cls

myBucle:
    for myNumber = 0 to 7          
        mySub()                  
    next myNumber
    goto myBucle

sub mySub()

end sub

Looks like there is escape from the loop? 
and an empty mySub() ?

Thanks