fpcsrc/tests/tbs/ub0489b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{$mode delphi}

unit ub0489b;

interface

function fpwrite(b:integer;const x;c:integer):integer;

implementation

function fpwrite(b:integer;const x;c:integer):integer;
begin
  writeln('fpwrite');
end;

end.