source: liacs/coco/tests/optimize/deadcode.p0@ 256

program deadcode;

var
  test,a,b,t: integer;
 
begin
  test := 0;
  a := 4;
  if (test = 1) then
  begin
        a := 1;
        b := 5
  end;
  writeinteger(a)
end.