939bf62012-06-25Per Hedbor #pike __REAL_VERSION__ inherit Tools.Shoot.Test; constant name="Foreach (arr,global)";
bfa7512012-07-02Arne Goedeke constant dont_dump_program = 1;
939bf62012-06-25Per Hedbor 
1604052016-04-18Marcus Comstedt int arr_size = 10000000; array prepare() { return enumerate(arr_size); }
939bf62012-06-25Per Hedbor int n;
1604052016-04-18Marcus Comstedt int perform(array const_array)
939bf62012-06-25Per Hedbor { int res;
e680902015-03-22Henrik Grubbström (Grubba)  foreach( const_array;;n )
e81bce2012-06-25Per Hedbor  res=1;
75c9d12013-08-16Per Hedbor  return ++n;
939bf62012-06-25Per Hedbor }