freepascal.compiler/tests/webtbs/tw37465.pp

program example;

{$mode objfpc}{$H+}

procedure foo(out c: char); inline;
begin
  c := #32;
end;

var s: String;

begin
  s:=#42;
  foo(s[1]);
  Writeln(ord(s[1]));
  if ord(s[1])<>32 then
    halt(1);
end.