outside-const-case-var.bas

' TEST_MODE : COMPILE_ONLY_FAIL

dim c as integer

select case as const( c )
	var i = 123
case 0
end select