Explorar o código

+ also test "pointer + integer" constant evaluation

git-svn-id: trunk@10420 -
Jonas Maebe %!s(int64=17) %!d(string=hai) anos
pai
achega
b8e904f531
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      tests/webtbs/tw3073.pp

+ 2 - 0
tests/webtbs/tw3073.pp

@@ -16,4 +16,6 @@ begin
    halt(1);
  if pwidechar(24)-pwidechar(22)<>1 then
   halt(1);
+ if pwidechar(22)+1 <> pwidechar(24) then
+   halt(1);
 end.