* new test

git-svn-id: trunk@38262 -

.gitattributes

@@ -15526,6 +15526,7 @@ tests/webtbs/tw25210.pp svneol=native#text/pascal
 tests/webtbs/tw25236.pp svneol=native#text/pascal
 tests/webtbs/tw2525.pp svneol=native#text/plain
 tests/webtbs/tw25255.pp svneol=native#text/pascal
+tests/webtbs/tw25255b.pp svneol=native#text/pascal
 tests/webtbs/tw25269.pp svneol=native#text/pascal
 tests/webtbs/tw25289.pp svneol=native#text/plain
 tests/webtbs/tw25296.pp svneol=native#text/plain

tests/webtbs/tw25255b.pp

@@ -0,0 +1,21 @@
+var
+  qb : qwordbool;
+  lb : longbool;
+  wb : wordbool;
+procedure p;
+begin
+  if not(qb) then
+    halt(1);
+  if not(lb) then
+    halt(1);
+  if not(wb) then
+    halt(1);
+end;
+
+begin
+  qb:=qwordbool($8000000000000000);
+  lb:=longbool($80000000);
+  wb:=wordbool($8000);
+  p;
+  writeln('ok');
+end.