paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:45:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more checks

Browse Source
This commit is contained in:
peter 2000-08-06 14:14:25 +00:00
parent 4b2595322b
commit aa4be75abc
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/tbs/tbs0327.pp
View File

@ -1,5 +1,5 @@
{$ifdef fpc}{$mode delphi}{$endif}
unit tbs0327;
unit p;
interface
type
@ -8,8 +8,14 @@ type
procedure l(s:string);overload;
end;
procedure l2(i:integer);overload;
procedure l2(s:string);overload;
implementation
procedure l3(i:integer);forward;overload;
procedure l3(s:string);forward;overload;
procedure tc.l(i:integer);
begin
end;
@ -18,6 +24,22 @@ procedure tc.l(s:string);
begin
end;
procedure l2(i:integer);
begin
end;
procedure l2(s:string);
begin
end;
procedure l3(i:integer);
begin
end;
procedure l3(s:string);
begin
end;
procedure k(l:longint);overload;
begin
end;