home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LkROInc / bench.e
Encoding:
Text File  |  1999-06-05  |  362 b   |  33 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    array_int: ARRAY[INTEGER]
  9.  
  10.    make is
  11.       local 
  12.      size: INTEGER
  13.      i: INTEGER
  14.       do
  15.      from
  16.         i := 150;
  17.      until
  18.         i = 0
  19.      loop
  20.         from
  21.            size := 0
  22.         until
  23.            size = 5000
  24.         loop
  25.            !!array_int.make(0,size)
  26.            size := size + 1
  27.         end
  28.         i := i - 1
  29.      end
  30.       end
  31.    
  32. end
  33.