+ test for mantis #10863

git-svn-id: trunk@10717 -

.gitattributes

@@ -8116,6 +8116,7 @@ tests/webtbs/tw1081.pp svneol=native#text/plain
 tests/webtbs/tw10815.pp svneol=native#text/plain
 tests/webtbs/tw10825.pp svneol=native#text/plain
 tests/webtbs/tw10833.pp svneol=native#text/plain
+tests/webtbs/tw10863.pp svneol=native#text/plain
 tests/webtbs/tw10890.pp svneol=native#text/plain
 tests/webtbs/tw10897.pp svneol=native#text/plain
 tests/webtbs/tw1090.pp svneol=native#text/plain

tests/webtbs/tw10863.pp

@@ -0,0 +1,22 @@
+function f(b,c,d : boolean) : longint;
+ begin
+   f:=ord(b);
+ end;
+
+procedure test;
+var
+ b,c : boolean;
+
+begin
+ b:=true;
+ c:=false;
+ b:=1<>f(b,not(b),c);
+ c:=true;
+ if (b) then
+   halt(1);
+ writeln(c);
+end;
+
+begin
+  test;
+end.