mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 08:19:36 +01:00
23 lines
187 B
ObjectPascal
23 lines
187 B
ObjectPascal
unit bug0237;
|
|
interface
|
|
|
|
procedure sub1(w1,w2:word);
|
|
|
|
implementation
|
|
|
|
procedure p1;
|
|
|
|
procedure sub1(w:word);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
procedure sub1(w1,w2:word);
|
|
begin
|
|
end;
|
|
|
|
end.
|