paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:11:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* range and overflow checks explicitly disabled

Browse Source 
git-svn-id: trunk@6538 -
This commit is contained in:
pierre 2007-02-18 00:40:28 +00:00
parent 5fc4257482
commit 40d9ef1196
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw1901.pp
View File

@ -4,9 +4,15 @@
{$MODE DELPHI} {$MODE DELPHI}
{$endif} {$endif}
{ Range and overflow checks need to be off }
{$Q-}
{$R-}
const Inf=1/0; const Inf=1/0;
NaN=0/0; NaN=0/0;
MinusInf=-Inf; MinusInf=-Inf;
var var
s : string; s : string;
error : boolean; error : boolean;