t_id
1174
t_adddate
2003/10/30
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949674284 | 1015615 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 2751 } { Submitted by "Micha" on 2003-10-26 } { e-mail: } program Construct; {$mode delphi} type ta = class public constructor Create(a: tclass); end; tb = class(ta) public constructor Create(a: tobject); end; constructor ta.create(a: tclass); begin end; constructor tb.create(a: tobject); begin end; var b: tb; c: tclass; begin c := tb; // This should fail b := tb.create(c); b.free; end.