mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
25 lines
404 B
ObjectPascal
25 lines
404 B
ObjectPascal
{ %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.
|