mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-09 02:29:33 +01:00
12 lines
169 B
ObjectPascal
12 lines
169 B
ObjectPascal
Program tbs0161;
|
|
|
|
{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.
|