Просмотр исходного кода

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 20 лет назад
Родитель
Сommit
1276eccb6a
1 измененных файлов с 6 добавлено и 0 удалено
  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