freepascal.compiler/tests/tbs0147.pp

{ $OPT= -So }
unit tbs0147;
interface

function b:boolean;

implementation

function b;
begin
end;

end.