t_id
672
t_version
1.1
t_adddate
2003/10/03
t_result
0
Flag
t_fail
set
t_knownrunerror
0
t_opts
-Sew -vw
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
458822671 | 937402 | True | False | Success, compilation failed |
Record count: 1
{ %VERSION=1.1 } { %FAIL } { %OPT=-Sew -vw } {$MODE OBJFPC} type tmyclass = class procedure myabstract; virtual; abstract; end; tmyclass2 = class(tmyclass) end; tmyclassnode = class of tmyclass; var cla : tmyclass2; cla1 : tmyclass; classnode : tmyclassnode; Begin cla := tmyclass2.create; classnode := tmyclass2; cla1 := classnode.create; end. { $Log: tb0146.pp,v $ Revision 1.1 2002/11/26 19:24:30 carl * some small fixes + added several new tests }