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