[Solved] Is this supposed to be allowed?

[noop]

Hi,

is the following supposed to be allowed?

Code: Select all

sub test(byref x as integer)
    print x
    for i as integer = 0 to 0
        dim as integer x = 4
        print x
    next i
    if x = 3 then
        dim as integer x = 4
        print x
    end if
    print x
end sub


dim as integer x = 3
test(x)
sleep

[fxm]

Yes.
Inside each [for...next] / [if...end if] block, 'dim' defines a new local variable 'x' which is different from the external variable 'x'.

One can check it:

Code: Select all

sub test(byref x as integer)
    print @x, x
    for i as integer = 0 to 0
        dim as integer x = 4
        print @x, x
    next i
    if x = 3 then
        dim as integer x = 4
        print @x, x
    end if
    print @x, x
end sub

dim as integer x = 3
test(x)
sleep

[noop]

Interesting. Although it seems like a dangerous coding style. A compiler flag disallowing such behaviour would be nice.
Thanks for clearing this up fxm.

[fxm]

This is only allowed in the -lang fb and -lang deprecated dialects, otherwise a compiler error 'error 4: Duplicated definition' is returned.

About that, there is already a note in documentation at page KeyPgDim:

.....
- In the -lang fb and -lang deprecated dialects, variables defined inside compound block statements (For..Next, While..Wend, Do..Loop, If..Then, Select..End Select, With..End With, Scope..End Scope) have local working scopes, and are visible only within these blocks.
.....