|
@@ -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
|
|
|
+
|
|
|
+}
|