浏览代码

* overload keyword added, test is successfull for 1.1. known issue
for 1.0.x

peter 22 年之前
父节点
当前提交
fd632f7a50
共有 1 个文件被更改,包括 11 次插入11 次删除
  1. 11 11
      tests/tbs/tb0224.pp

+ 11 - 11
tests/tbs/tb0224.pp

@@ -1,4 +1,4 @@
-{ %KNOWNCOMPILEERROR= Problem with virtual and overloaded methods }
+{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods }
 { Old file: tbs0262.pp }
 { problems with virtual and overloaded methods }
 
@@ -8,29 +8,29 @@ program test;
       obj1 = object
         st2 : string;
         constructor init;
-        procedure writeit;
-        procedure writeit(st : string);virtual;
+        procedure writeit;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj2 = object(obj1)
-        procedure writeit;virtual;
+        procedure writeit;virtual;overload;
       end;
 
       obj3 = object(obj2)
         l2 : longint;
-        procedure writeit(l : longint);virtual;
-        procedure writeit(st : string);virtual;
+        procedure writeit(l : longint);virtual;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj4 = object(obj3)
-        procedure writeit;virtual;
-        procedure writeit(st : string);virtual;
+        procedure writeit;virtual;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj5 = object(obj4)
-        procedure writeit;virtual;
-        procedure writeit(st : string);
-        procedure writeit(l : longint);virtual;
+        procedure writeit;virtual;overload;
+        procedure writeit(st : string);overload;
+        procedure writeit(l : longint);virtual;overload;
       end;
 
       constructor obj1.init;