mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
22 lines
295 B
ObjectPascal
22 lines
295 B
ObjectPascal
{ Old file: tbs0253.pp }
|
|
{ problem with overloaded procedures and forward OK 0.99.11 (PFV) }
|
|
|
|
procedure test(w : word);forward;
|
|
|
|
procedure test(a : string);
|
|
begin
|
|
Writeln(a);
|
|
test(20);
|
|
end;
|
|
|
|
procedure test(w :word);
|
|
begin
|
|
writeln(w);
|
|
end;
|
|
|
|
begin
|
|
test('test');
|
|
test(32);
|
|
end.
|
|
|