freepascal.compiler/bugs/bug0147.pp

unit u;
interface

function b:boolean;

implementation

function b;
begin
end;

end.