fpcsrc/tests/tbs/tb0128.pp


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

{ Old file: tbs0147.pp }
{ function b; is not allowed in implementation          OK 0.99.7 (PFV) }

{$mode tp}
unit tb0128;
interface

function b:boolean;

implementation

function b;
begin
end;

end.