freepascal.compiler/tests/tbs/tb0337.pp

var
  s : string;
begin
  s:={$ifdef fpc}'~[v]~'{$else}'~['#25']~'{$endif};
end.