mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
24 lines
280 B
ObjectPascal
24 lines
280 B
ObjectPascal
{ %fail }
|
|
|
|
program testbug;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TState = (a, b, c, d);
|
|
TStates = set of TState;
|
|
|
|
var
|
|
s : TStates;
|
|
begin
|
|
s := [a];
|
|
if s = a then
|
|
writeln('Should give a compile time error');
|
|
|
|
if s = b then halt(1);
|
|
|
|
if s = [a] then
|
|
writeln('OK');
|
|
end.
|
|
|