>local a >a='test' >=Test(@a) >=Test(a) > >procedure Text >lparameter b >*-- here, i would like to verify that the variable 'a' was passed to 'b' as by reference. >... >The best you can do is this.
PRIVATE a a='test' =Testa(@a) =Testa(a) PUBLIC x =Testx(@x) =Testx(x) procedure Testa lparameter b MESSAGEBOX("variable b "+IIF(VARTYPE(m.a)=='U',"Reference to a","is a stand-alone variable")) procedure Testx lparameter b MESSAGEBOX("variable b "+IIF(VARTYPE(m.x)=='U',"Reference to x","is a stand-alone variable"))