blob: e4b74805e121798a3408202836d30d29d25dd9b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %skipcpu=x86_64,powerpc64 }
{ %fail }
{ Source provided for Free Pascal Bug Report 3626 }
{ Submitted by "Marc Geldon" on 2005-02-02 }
{ e-mail: marc.geldon@proitsystems.de }
program project1;
{$H+}
uses
SysUtils
{ add your units here };
var
i: Integer;
begin
{ This should give an range check error at compile time for
32bit systems }
for i := 0 to 90000000000000000 do
begin
writeln(inttostr(i));
end;
end.
|