summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw10966.pp
blob: 2e7b311fec0ef60b46f9dbfffe33d82bce58d770 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{$r+}

const
  ctnsNeedJITParsing  = 1 shl 1;
type
  TCodeTreeNodeSubDesc = word;    
var
  SubDesc: TCodeTreeNodeSubDesc;
  l: longint;
//  c: cardinal;
begin
  SubDesc := 1;
// fails
//  SubDesc := not 2;
  l := not(2);
// fails
//  c := not(2);
  l := not ctnsNeedJITParsing;
// fails
//  c := not ctnsNeedJITParsing;
  SubDesc := SubDesc and (not 2);
  SubDesc := SubDesc and (not (1 shl 1));
  SubDesc := SubDesc and (not ctnsNeedJITParsing);
end.