blob: 901212f6e20eb5e237dd43c2f18db31956c0e6b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
|
