mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
24 lines
450 B
ObjectPascal
24 lines
450 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 4153 }
|
|
{ Submitted by "Ivo Steinmann" on 2005-07-03 }
|
|
{ e-mail: isteinmann@bluewin.ch }
|
|
type
|
|
Enum1 = (a, b, c);
|
|
Enum2 = (x, y, z);
|
|
|
|
const
|
|
// The next line should fail
|
|
Foobar = [b, z];
|
|
|
|
begin
|
|
if a in Foobar then
|
|
WriteLn('a in Foobar'); // not printed
|
|
|
|
if b in Foobar then
|
|
WriteLn('b in Foobar'); // printed
|
|
|
|
if c in Foobar then
|
|
WriteLn('c in Foobar'); // printed
|
|
end.
|