+ testing operator overloading

tests/tbs/tb0441.pp

@@ -0,0 +1,10 @@
+program Test;
+operator :=(x:LongInt)RESULT:ShortString;
+  begin
+    Val(RESULT,x);
+  end;
+var
+  s:ShortString;
+begin
+  s:=12;
+end.