mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 19:48:08 +02:00
31 lines
414 B
ObjectPascal
31 lines
414 B
ObjectPascal
{ Old file: tbs0181a.pp }
|
|
{ }
|
|
|
|
{ shows a problem of name mangling }
|
|
Unit ub0155;
|
|
|
|
Interface
|
|
|
|
type mylongint = longint;
|
|
mylongint2 = mylongint;
|
|
|
|
procedure dummy(var l : mylongint);
|
|
|
|
Implementation
|
|
|
|
var l : longint;
|
|
|
|
procedure use_before_implemented;
|
|
begin
|
|
dummy(l);
|
|
end;
|
|
|
|
procedure dummy(var l : mylongint2);
|
|
begin
|
|
l:=78;
|
|
end;
|
|
|
|
begin
|
|
use_before_implemented;
|
|
end.
|