{ %fail }
procedure p(var S : RawByteString);
  begin
  end;

var
  s1 : ansistring;

begin
  p(s1);
end.