paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

check 784 with and without range check

Browse Source
This commit is contained in:
pierre 2000-03-29 07:45:21 +00:00
parent 8dc1494e52
commit f830cef394
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/webtbf/tbug784.pp Normal file
View File

@ -0,0 +1,27 @@
{$R+}
{ should not compile if range check on }
program BigRange;
const
Limit = 100000000; { Hundred millions }
One = 1;
var
Huge: longint;
begin
Huge := Limit + One;
writeln(One, ' is the lower bound');
writeln(Limit, ' is the upper bound');
if Limit in [One .. Limit] then
writeln(Limit, ' is within the range')
else
writeln(Limit, ' is out of the range');
if Huge in [One .. Limit] then
writeln(Huge, ' is within the range')
else
writeln(Huge, ' is out of the range')
end.

2
tests/webtbs/tbug784.pp
View File

@ -1,3 +1,5 @@
{$R-}
{ should compile if no range check on }
program BigRange; program BigRange;
const const