fpcsrc/tests/tbs/tb0165.pp


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

{ %OPT= -So }

{ Old file: tbs0196.pp }
{ "function a;" is accepted (should require result type) OK 0.99.1 (PM) }

Unit tb0165;
interface

  function a : integer;

implementation
  function a;
begin
  a:=1;
end;

end.