freepascal.compiler/bugs/bug0161.pp

Program bug0157;

{the following program should give a syntax error, but causes an internal error}

const s = [1,2,3,4,5];

var b: Byte;

Begin
  If b in [s] then;
End.