ソースを参照

* fixed bug in the test :)

Jonas Maebe 25 年 前
コミット
74fd7fb141
1 ファイル変更2 行追加2 行削除
  1. 2 2
      tests/testopt/testcse2.pp

+ 2 - 2
tests/testopt/testcse2.pp

@@ -3,7 +3,7 @@
 
 
 type
 type
   tsubr = 1..100000;
   tsubr = 1..100000;
-  tarr = array[1..10] of longint;
+  tarr = array[1..100000] of longint;
 
 
 function test(b: tsubr): longint;
 function test(b: tsubr): longint;
 begin
 begin
@@ -69,4 +69,4 @@ begin
       halt(1);
       halt(1);
     end;
     end;
   freemem(p,4);
   freemem(p,4);
-end.
+end.