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
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Success, compilation failed | 50 | 100.0 | 2024/05/17 23:33:00 28 | 2024/05/18 01:22:00 34 | |
| i386 | 29 | 58.0 | 2024/05/17 23:33:00 28 | 2024/05/18 01:22:00 34 | |
| sparc | 5 | 10.0 | 2024/05/17 23:36:00 42 | 2024/05/17 23:55:00 41 | |
| x86_64 | 12 | 24.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:34:00 30 | |
| powerpc64 | 2 | 4.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:11:00 108 | |
| aarch64 | 2 | 4.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:52:00 35 | |
| linux | 31 | 62.0 | 2024/05/17 23:33:00 28 | 2024/05/18 01:22:00 34 | |
| win32 | 2 | 4.0 | 2024/05/17 23:54:00 25 | 2024/05/18 00:21:00 24 | |
| solaris | 17 | 34.0 | 2024/05/17 23:36:00 42 | 2024/05/18 00:34:00 30 | |
| 3.3.1 | 18 | 36.0 | 2024/05/17 23:33:00 28 | 2024/05/18 01:21:00 20 | |
| 3.2.3 | 32 | 64.0 | 2024/05/17 23:39:00 24 | 2024/05/18 01:22:00 34 |
{ %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.