freepascal.compiler/bugs/bug0063.pp

{ may also crash/do weird error messages with the compiler }
var
 min: char;
 max: char;
 i: char;
begin
 min:='c';
 max:='z';
 if i in [min..max] then
 Begin
 end;
end.