freepascal.compiler/bugs/bug0181.pp

{ shows a problem of name mangling  }
Program bug0181;

  Uses bug0181a;

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