mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:28:05 +02:00
18 lines
296 B
ObjectPascal
18 lines
296 B
ObjectPascal
{$mode objfpc}
|
|
Type
|
|
ts = set of (tse);
|
|
ts2 = set of (t1,t2);
|
|
enum3 = (tm1:=-1,t0,tp1);
|
|
ts3 = set of t0 .. tp1;
|
|
var
|
|
f:ts;
|
|
f2 : ts2;
|
|
f3 : ts3;
|
|
|
|
begin
|
|
f2:=f2+[t2];
|
|
f2:=f2+[t1];
|
|
f:=f+[tse]; // compiler says that set elements are not compatible
|
|
{ f3:=[tm1];}
|
|
end.
|