freepascal.compiler/tests/webtbf/tw14104b.pp

{ %fail }

procedure test(f: string[50]);
begin
end;

begin
end.