| 123456789101112131415161718192021222324 |
- { %fail }
- { Source provided for Free Pascal Bug Report 3375 }
- { Submitted by "Vincent Snijders" on 2004-10-29 }
- { e-mail: [email protected] }
- 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.
|
