mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 23:49:15 +02:00
12 lines
169 B
ObjectPascal
12 lines
169 B
ObjectPascal
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.
|