t_id
1389
t_adddate
2004/11/01
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-678870480 | 751007 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 3375 } { Submitted by "Vincent Snijders" on 2004-10-29 } { e-mail: vslist@zonnet.nl } program typecast; {$mode objfpc}{$H+} type T4bytes = array[0..3] of byte; var w: word; p: pchar; a: T4bytes; begin w := 0; // The next line should compile, delphi compatible p := pchar(w); // should fail, and it does a := T4Bytes(w); end.