diff --git a/Parser.pas b/Parser.pas
index fd7750c..5168b4d 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -3861,6 +3861,8 @@ if isFunction then begin
    else begin
       if not first then
          Error(22);
+      if variable^.state = defined then
+         Error(42);
       ftype := fnType^.ftype;           {record the type of the function}
       while fType^.kind = definedType do
          fType := fType^.dType;