fpc/tests/tbs/tbs0255.pp

function a: char;
begin
  a:='c';
end;

begin
  if #12 in [a, a, a, a, a] then ; { <--- }
end.