fpc/tests/webtbs/tw0802.pp
2000-11-30 22:38:14 +00:00

10 lines
140 B
ObjectPascal

program test;
function testf (a:byte;b:integer;c:char):char;
begin
testf:=c;
end;
begin
writeln('"',testf(0,-1,'A'),'"');
end.