path: root/fpcsrc/tests/webtbf/tw14777.pp

{ %fail }

var
  S: String;
  B: Boolean;
  E: Word;
begin
  S := '0';
  Val(S, B, E);
end.