mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
11 lines
185 B
ObjectPascal
11 lines
185 B
ObjectPascal
{ %FAIL }
|
|
{ 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.
|