Browse Source

* range and overflow checks explicitly disabled

git-svn-id: trunk@6538 -
pierre 18 years ago
parent
commit
40d9ef1196
1 changed files with 6 additions and 0 deletions
  1. 6 0
      tests/webtbs/tw1901.pp

+ 6 - 0
tests/webtbs/tw1901.pp

@@ -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;