paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 2000-08-16 13:02:33 +00:00
parent 5eb17fe1c4
commit f53823cb77
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tbug1068.pp Normal file
View File

@ -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.