freepascal.compiler/tests/tbf/tb0142.pp

{ %fail }

function f(b:byte):byte;
begin
  f:=chr(b)-chr(24);
end;

begin
end.