What am I doing wrong in the following script if this is not a bug?
 Code:
Dim    $RESULT
Dim    $SOMEVAR
$RESULT	    = 0
$RESULT	    = SetOption("DisableDebugging", "On")
$RESULT	    = SetOption("Ascii", "Off")
$RESULT	    = SetOption("CaseSensitivity", "On")
$RESULT	    = SetOption("Explicit", "On")
$RESULT	    = SetOption("HideCursor", "Off")
$RESULT	    = SetOption("NoMacrosInStrings", "On")
$RESULT	    = SetOption("NoVarsInStrings", "On")
$RESULT	    = SetOption("WrapAtEOL", "On")
If @ONWOW64
    $RESULT = SetOption("WOW64FileRedirection", "On")
    $RESULT = SetOption("WOW64AlternateRegView", "On")
Else
    $RESULT = SetOption("WOW64FileRedirection", "Off")
    $RESULT = SetOption("WOW64AlternateRegView", "Off")
EndIf
$SOMEVAR    = 5
Cls
? @CRLF
? TETESTEN($SOMEVAR)
Quit @ERROR

Function TETESTEN($ARG1)

    If Not IsDeclared($RSLT)
	Dim $RSLT
	$RSLT = 0
	? "RSLT=" + $RSLT + @CRLF
    EndIf
    $RSLT = 4

    $TETESTEN = $RSLT * $ARG1

EndFunction


Output:
RSLT=0

ERROR : undefined variable [RSLT]!
Script: C:\tse_beta\source\Kix\putje.kix
Line : 32

Line 32 is the one saying $RSLT = 4
Looks like outside the if endif the dim is not valid.

Edited by Allen (2014-03-18 04:26 PM)
Edit Reason: added code tags