blob: 5d2955fe1ccf4796ddb6db229c63b5e79164b02c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %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.
|
