t_id
1389
t_adddate
2004/11/01
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %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.