فهرست منبع

*** empty log message ***

florian 25 سال پیش
والد
کامیت
f53823cb77
1فایلهای تغییر یافته به همراه14 افزوده شده و 0 حذف شده
  1. 14 0
      tests/webtbs/tbug1068.pp

+ 14 - 0
tests/webtbs/tbug1068.pp

@@ -0,0 +1,14 @@
+PROGRAM bug1068;
+VAR i: INT64;
+    s : string;
+BEGIN
+  i:=2147483648;
+  str(i,s);
+  if s<>'2147483648' then
+    begin
+       writeln(s);
+       halt(1);
+    end
+  else
+    halt(0);
+END.