t_id
639
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-Sew -vw
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526040489 | 948289 | True | False | Successfully run |
Record count: 1
{ %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: tb0424.pp,v $ Revision 1.1 2002/11/26 19:24:55 carl + added several new tests }