mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 16:33:41 +02:00
28 lines
384 B
ObjectPascal
28 lines
384 B
ObjectPascal
{ shows a problem of name mangling }
|
|
Unit tbs0181a;
|
|
|
|
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.
|