summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw1905.pp
blob: 6b9f8319b27dc08735bd583c6bffa09db06f1cb6 (plain)
1
2
3
4
5
6
7
8
9
10
{ %fail }

procedure proc_value_smallset(smallset : set of tsmallset);
   begin
     if [A_A,A_D] in smallset then
       global_u8bit := RESULT_U8BIT;
   end;

begin
end.