Test suite results for test file tbs/tb0431.pp

Test run data :

Test file "tbs/tb0431.pp" information:

t_id 645
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940424.

Source:

{ 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.

Link to SVN view of tbs/tb0431.pp source.