QB64-PE/tests/compile_tests/const/const_sub.bas

$CONSOLE:ONLY
CONST glob = 60

foo
baz

SYSTEM

' SUB/FUNCTIONs should be able to define their on CONST that are local to that SUB/FUNCTION
' They should also be able to access the global CONSTs
SUB foo()
    CONST a = 20
    CONST bar = a + 20 + glob

    PRINT bar
END SUB

' Separate SUB/FUNCTIONs should be able to define CONST values with the same names
SUB baz()
    CONST a = 40
    CONST bar = a + 20 + glob

    PRINT bar
END SUB
Replace CONSTs while we have the individual elements This moves the CONST replacement up before we turn the elements into a single string. The advantage is that we don't have to worry about splitting the string properly to find the CONST names as the elements are already split for us.t 2024-01-06 04:01:51 +00:00			`$CONSOLE:ONLY`
			`CONST glob = 60`

			`foo`
			`baz`

			`SYSTEM`

			`' SUB/FUNCTIONs should be able to define their on CONST that are local to that SUB/FUNCTION`
			`' They should also be able to access the global CONSTs`
			`SUB foo()`
			`CONST a = 20`
			`CONST bar = a + 20 + glob`

			`PRINT bar`
			`END SUB`

			`' Separate SUB/FUNCTIONs should be able to define CONST values with the same names`
			`SUB baz()`
			`CONST a = 40`
			`CONST bar = a + 20 + glob`

			`PRINT bar`
			`END SUB`