t_id
19
t_version
1.1
t_adddate
2003/10/03
t_result
0
Flag
t_fail
set
t_knownrunerror
0
t_opts
-CR
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022414174 | 1027329 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { %opt=-CR } { %version=1.1 } {$mode objfpc} program test_class; type tobj1 = class constructor create; procedure mymethod; virtual; end; tobj2 = class constructor create; procedure mymethod; virtual; end; constructor tobj2.create; begin end; procedure tobj2.mymethod; begin end; constructor tobj1.create; begin end; procedure tobj1.mymethod; begin end; var _cla1 : tobj1; _cla2 : tobj2; Begin _cla1:=tobj1.create; _cla2:=tobj2.create; { Detect wrong typecast at compile time } tobj1(_cla2).mymethod; end.