1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
#pike __REAL_VERSION__ 
inherit Tools.Shoot.Test; 
 
constant name="Foreach (arr,global)"; 
constant dont_dump_program = 1; 
 
int arr_size = 10000000; 
 
array prepare() { return enumerate(arr_size); } 
 
int n; 
 
int perform(array const_array) 
{ 
    int res; 
    foreach( const_array;;n ) 
        res=1; 
    return ++n; 
}