tests/webtbs/tw20874a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program qwordbooltest;

{$mode objfpc}{$H+}

var
  A, B : QWordBool;
begin
  A := True;

  // here it fails: qwordbooltest.pas(12,3) Fatal: Internal error 200109227
  B := not A;

  if B then
    halt(1);

  writeln('ok');
end.