fpc/tests/webtbf/tw14104a.pp

{ %fail }

procedure test(var f: file of extended);
begin
end;

begin
end.