freepascal.compiler/tests/tbs/tb0378.pp

{$mode delphi}

procedure p();
begin
end;

begin
end.