Parcourir la source

Merged revisions 1414 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

r1414 (florian)
* test fixed, operator overloading is now more strict

git-svn-id: branches/fixes_2_0@1415 -

florian il y a 20 ans
Parent
commit
1276eccb6a
1 fichiers modifiés avec 6 ajouts et 0 suppressions
  1. 6 0
      tests/webtbs/tw2481.pp

+ 6 - 0
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