Explorar el Código

+ added several new tests

carl hace 23 años
padre
commit
4b58341892
Se han modificado 1 ficheros con 33 adiciones y 0 borrados
  1. 33 0
      tests/tbs/tb0424.pp

+ 33 - 0
tests/tbs/tb0424.pp

@@ -0,0 +1,33 @@
+{ %VERSION=1.1 }
+{ %OPT=-Sew -vw }
+
+{$MODE OBJFPC}
+
+{ This tests that implemented abstract methods do not cause any warnings }
+type
+  tmyclass = class
+   procedure myabstract; virtual; abstract;
+  end;
+
+  tmyclass2 = class(tmyclass)
+   procedure myabstract ; override;
+  end;
+
+
+  procedure tmyclass2.myabstract; 
+   begin
+   end;
+
+
+var
+ cla : tmyclass2;
+Begin
+ cla := tmyclass2.create;
+end.
+
+{
+  $Log$
+  Revision 1.1  2002-11-26 19:24:55  carl
+    + added several new tests
+
+}