Browse Source

+ also test "pointer + integer" constant evaluation

git-svn-id: trunk@10420 -
Jonas Maebe 17 years ago
parent
commit
b8e904f531
1 changed files with 2 additions and 0 deletions
  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.