mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 12:59:26 +02:00
10 lines
175 B
ObjectPascal
10 lines
175 B
ObjectPascal
{ Old file: tbf0168.pp }
|
|
{ set:=set+element is allowed (should be: set:=set+[element]) OK 0.99.9 (PFV) }
|
|
|
|
var bset: set of 0..31;
|
|
b: byte;
|
|
|
|
Begin
|
|
bset := bset + b;
|
|
End.
|