* non-zero exit code on failure

git-svn-id: trunk@46661 -

tests/webtbs/tw37465.pp

@@ -13,4 +13,6 @@ begin
   s:=#42;
   foo(s[1]);
   Writeln(ord(s[1]));
+  if ord(s[1])<>32 then
+    halt(1);
 end.