t_id
595
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-vn
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525814432 | 948248 | True | False | Successfully run |
Record count: 1
{ %OPT=-vn } { %KNOWNCOMPILEERROR= Typecasting assignment values with types of different sizes is refused even in TP mode for big endian cpus } {$ifdef ENDIAN_BIG} {$note This test should fail on big endian machines. } {$endif} {$ifdef fpc}{$mode tp}{$endif} var i : longint; j : word; begin j:=5; i:=-1; { this is allowed in tp7 } byte(i):=j; writeln('i: ',i,' (should be -251)'); if i<>-251 then halt(1); end.