fpc/tests/webtbs/tw2927.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

19 lines
201 B
ObjectPascal

{$mode objfpc}
uses
Classes;
procedure ReadTest(const p: Pointer); overload;
begin
end;
procedure ReadTest(const p: TStream); overload;
begin
end;
var
f: TFileStream;
begin
ReadTest(f);
end.