* test fixed, operator overloading is now more strict

git-svn-id: trunk@1414 -

tests/webtbs/tw2481.pp

@@ -21,6 +21,12 @@ Var
     B.A := V;
   End;
 
+  Operator := (V : Extended) B : TMoo;
+  Begin
+    B:=TMoo.Create;
+    B.A := V;
+  End;
+
 Constructor TMoo.Init;
 Begin