+ test

tests/webtbs/tw15633.pp

@@ -0,0 +1,9 @@
+var value : word;
+    code : Longint;
+
+begin
+  Val('4294901772', Value, code);
+  writeln(code);
+  if code<>10 then
+    halt(1);
+end.