paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 07:43:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-10-26 13:36:35 +00:00
parent e0fb1629c6
commit 5a3081439e
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbf/tw2128.pp Normal file
View File

@ -0,0 +1,17 @@
{ %version=1.1}
{ %fail }
{ Source provided for Free Pascal Bug Report 2128 }
{ Submitted by "Bill Rayer" on 2002-09-18 }
{ e-mail: lingolanguage@hotmail.com }
{
Excessive 64-bit literal causes the FPC compiler to crash.
}
var
c : comp;
begin
c := -9223372036854775809;
if c<>-9223372036854775809 then
halt(1);
end.

9
tests/webtbs/tw2128.pp
View File

@ -10,7 +10,10 @@
var
c : comp;
begin
c := -9223372036854775809;
if c<>-9223372036854775809 then
halt(1);
c := -9223372036854775808;
if c<>-9223372036854775808 then
begin
writeln('Error');
halt(1);
end;
end.