fpc/tests/tbs/tbs0181.pp

{ shows a problem of name mangling  }
Program bug0181;

  Uses tbs0181a;

  var l : mylongint;
begin
  dummy(l);
end.