t_id
645
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022236084 | 1027299 | True | False | Successfully run |
Record count: 1
{ the smallest falling test I ever found PM } { the code generated a shll #0,%edx on i386 which was bad but harmless... but on m68K it generated a asl.l #0,%d2 which is not correct ... } const has_errors : boolean = false; var x : longint; begin x:=5; x:=x*1; if x<>5 then has_errors:=true; x:=5; x:=x shl 0; if x<>5 then has_errors:=true; x:=5; x:=x shr 0; if x<>5 then has_errors:=true; if has_errors then halt(1); end.