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

* adapt test to $R+

Browse Source 
git-svn-id: trunk@6532 -
This commit is contained in:
pierre 2007-02-17 23:57:44 +00:00
parent 1326e7a542
commit a99bbb20f2
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test/testv5.pp
View File

@ -1,6 +1,9 @@
{ %VERSION=1.1 } { %VERSION=1.1 }
program testv5; program testv5;
{$ifopt R+}
{$define skip_range_error_tests}
{$endif }
uses variants,varutils; uses variants,varutils;
Procedure TestLongInt(I : Longint); Procedure TestLongInt(I : Longint);
@ -119,14 +122,6 @@ begin
TestByte(0); TestByte(0);
TestInt64(0); TestInt64(0);
TestQWord(0); TestQWord(0);
TestLongint(-1);
TestSmallInt(-1);
TestShortInt(-1);
TestCardinal(-1);
TestWord(-1);
TestByte(-1);
TestInt64(-1);
TestQWord(-1);
TestLongint(1); TestLongint(1);
TestSmallInt(1); TestSmallInt(1);
TestShortInt(1); TestShortInt(1);
@ -135,4 +130,14 @@ begin
TestByte(1); TestByte(1);
TestInt64(1); TestInt64(1);
TestQWord(1); TestQWord(1);
TestLongint(-1);
TestSmallInt(-1);
TestShortInt(-1);
TestInt64(-1);
{$ifndef skip_range_error_tests}
TestCardinal(-1);
TestWord(-1);
TestByte(-1);
TestQWord(-1);
{$endif ndef skip_range_error_tests}
end. end.