瀏覽代碼

* range and overflow checks explicitly disabled

git-svn-id: trunk@6538 -
pierre 18 年之前
父節點
當前提交
40d9ef1196
共有 1 個文件被更改,包括 6 次插入0 次删除
  1. 6 0
      tests/webtbs/tw1901.pp

+ 6 - 0
tests/webtbs/tw1901.pp

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