freepascal.compiler/tests/tbs/tb0155.pp

{ Old file: tbs0181.pp }
{ shows a problem with name mangling                    OK 0.99.9 (PM) }

{ shows a problem of name mangling  }
Program tb0155;

  Uses ub0155;

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