* removed "Note: Local variable "X" is assigned but never used" when the variable is passed to procedure/function as OUT parameter.

git-svn-id: trunk@4257 -

compiler/ncal.pas

@@ -705,7 +705,7 @@ type
                   begin
                     case parasym.varspez of
                       vs_out :
-                        set_varstate(left,vs_written,[]);
+                        set_varstate(left,vs_readwritten,[]);
                       vs_var :
                         set_varstate(left,vs_readwritten,[vsf_must_be_valid,vsf_use_hints]);
                       else